5 use Test::Requires 'Devel::CallParser';
9 use Devel::CallParser ();
12 my ($usepack, $name, $inpack, $sub) = @_;
14 *{"${inpack}::${name}"} = $sub;
17 use Devel::Declare method => sub {
18 my ($usepack, $use, $inpack, $name) = @_;
19 return sub (&) { ($usepack, $name, $inpack, $_[0]); };
26 is +__PACKAGE__->bar(qw(x y)), "main,x,y";