3 use Test::More 'no_plan';
6 my ($usepack, $name, $inpack, $sub) = @_;
8 *{"${inpack}::${name}"} = $sub;
12 my ($usepack, $use, $inpack, $name) = @_;
13 return sub (&) { ($usepack, $name, $inpack, $_[0]); };
16 use Devel::Declare 'method' => \&handle_method;
21 $args1 = join(', ', @_);
28 $args2 = join(', ', @_);
31 __PACKAGE__->bar(qw(1 2));
32 __PACKAGE__->baz(qw(3 4));
34 is($args1, 'main, 1, 2', 'Method bar args ok');
35 is($args2, 'main, 3, 4', 'Method baz args ok');