X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FRunnable%2FInvocation%2FPlugin%2FDebug.pm;h=94e039749ae5555bbeea05892da28e4af6f941b5;hb=00fc26d5a389e344af1cf6d54dd779e6578bac4d;hp=60db3417ceed8a6a0ae61a86ac5f32213fa68a92;hpb=2123b3b8eed7e62baedecf3dcd999bccf66e49c9;p=gitmo%2FMooseX-Runnable.git

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";
     };
 }