X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsimple.t;h=dca0887358fcf6299d4b82a37213376ddec98993;hb=0ba8c7aa7fbe181c41b885283412d5b55484326e;hp=80772caddfc0569455f2ccd83c63baeef7e83eee;hpb=c630715aa8fed80229afaf677e1cfc1206685f89;p=p5sagit%2FDevel-Declare.git

diff --git a/t/simple.t b/t/simple.t
index 80772ca..dca0887 100644
--- a/t/simple.t
+++ b/t/simple.t
@@ -8,7 +8,12 @@ sub method {
   *{"${pack}::${name}"} = $sub;
 }
 
-use Devel::Declare 'method';
+sub handle_method {
+  my ($pack, $use, $name) = @_;
+  return sub (&) { ($pack, $name, $_[0]); };
+}
+
+use Devel::Declare 'method' => \&handle_method;
 
 my ($args1, $args2);
 
@@ -28,3 +33,4 @@ __PACKAGE__->baz(qw(3 4));
 
 is($args1, 'main, 1, 2', 'Method bar args ok');
 is($args2, 'main, 3, 4', 'Method baz args ok');
+