From: Jonathan Rockway <jon@jrock.us>
Date: Wed, 29 Apr 2009 14:54:29 +0000 (-0500)
Subject: actually print args in Debug plugin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Runnable.git;a=commitdiff_plain;h=00fc26d5a389e344af1cf6d54dd779e6578bac4d

actually print args in Debug plugin
---

diff --git a/lib/MooseX/Runnable/Invocation/Plugin/Debug.pm b/lib/MooseX/Runnable/Invocation/Plugin/Debug.pm
index 60db341..94e0397 100644
--- a/lib/MooseX/Runnable/Invocation/Plugin/Debug.pm
+++ b/lib/MooseX/Runnable/Invocation/Plugin/Debug.pm
@@ -1,19 +1,19 @@
 package MooseX::Runnable::Invocation::Plugin::Debug;
 use Moose::Role;
-use Context::Preserve qw(preserve_context);
-
-for my $method (qw/load_class apply_scheme validate_class create_instance start_application/){
 
+for my $method (qw{
+    load_class apply_scheme validate_class
+    create_instance start_application
+  }){
     requires $method;
 
     before $method => sub {
-        my ($self, @args);
+        my ($self, @args) = @_;
         my $args = join ', ', @args;
         print "Calling $method($args)\n";
     };
 
     after $method => sub {
-        my ($next, $self, @args) = @_;
         print "Returning from $method\n";
     };
 }