This is an automated email from the git hooks/post-receive script. kanashiro-guest pushed a commit to branch master in repository carton.
commit 0a26b6729b8d2ddd65a6c9e1270b18c3ea6e2d11 Author: Tatsuhiko Miyagawa <miyag...@bulknews.net> Date: Wed Jun 5 14:59:33 2013 +0900 refactor CLI with Moo --- xt/CLI.pm | 26 ++++++++++---------------- 1 file changed, 10 insertions(+), 16 deletions(-) diff --git a/xt/CLI.pm b/xt/CLI.pm index ad64001..70ce360 100644 --- a/xt/CLI.pm +++ b/xt/CLI.pm @@ -21,6 +21,9 @@ extends 'Carton::CLI'; $Carton::CLI::UseSystem = 1; has dir => (is => 'rw'); +has output => (is => 'rw'); +has system_output => (is => 'rw'); +has system_error => (is => 'rw'); sub print { my $self = shift; @@ -29,26 +32,17 @@ sub print { sub run { my($self, @args) = @_; - my $pushd = File::pushd::pushd $self->{dir}; + + my $pushd = File::pushd::pushd $self->dir; + $self->{output} = ''; - ($self->{system_output}, $self->{system_error}) = capture { + + my @capture = capture { eval { $self->SUPER::run(@args) }; }; -} -sub output { - my $self = shift; - $self->{output}; -} - -sub system_output { - my $self = shift; - $self->{system_output}; -} - -sub system_error { - my $self = shift; - $self->{system_error}; + $self->system_output($capture[0]); + $self->system_error($capture[1]); } sub clean_local { -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits