Dne Ne 13.zář.2015 12:43:51, SREZIC napsal(a):
Show quoted text
Attached patch fixes it in the same manner as the referred MouseX-App-Cmd bug report.
From 693e0ca1e53025954ba5a1f10d8b5b36ceffd4ac Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Mon, 30 Nov 2015 14:31:21 +0100
Subject: [PATCH] Restore compatibility with App-Cmd-0.328
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
App-Cmd-0.328 something changed and that broke MouseX::App::Cmd.
This patch is similar to change in MooseX-App-Cmd-0.32. It adds
dependency on MouseX::NonMoose.
CPAN RT#107068
Signed-off-by: Petr PÃsaÅ <ppisar@redhat.com>
---
lib/MouseX/App/Cmd.pm | 20 ++------------------
1 file changed, 2 insertions(+), 18 deletions(-)
diff --git a/lib/MouseX/App/Cmd.pm b/lib/MouseX/App/Cmd.pm
index b1b4c58..cd9c702 100644
--- a/lib/MouseX/App/Cmd.pm
+++ b/lib/MouseX/App/Cmd.pm
@@ -3,27 +3,11 @@ use 5.006;
package MouseX::App::Cmd;
use Mouse;
use English '-no_match_vars';
-use File::Basename ();
+use MouseX::NonMoose;
+extends 'App::Cmd';
# VERSION
use namespace::autoclean;
-extends 'Mouse::Object', 'App::Cmd';
-
-sub BUILDARGS {
- my ( undef, @arg ) = @_;
- return {} if !@arg;
- return { arg => $arg[0] } if 1 == @arg;
- return {@arg};
-}
-
-sub BUILD {
- my $self = shift;
- my $class = blessed $self;
- $self->{arg0} = File::Basename::basename($PROGRAM_NAME);
- $self->{command} = $class->_command( {} );
- $self->{full_arg0} = $PROGRAM_NAME;
- return;
-}
## no critic (Modules::RequireExplicitInclusion)
__PACKAGE__->meta->make_immutable();
--
2.4.3
RT for rt.cpan.org