5 eval { require Devel::CallParser };
8 Test::More::plan(skip_all => "Devel::CallParser unavailable");
12 use Test::More tests => 1;
14 use Devel::CallParser ();
17 my ($usepack, $name, $inpack, $sub) = @_;
19 *{"${inpack}::${name}"} = $sub;
22 use Devel::Declare method => sub {
23 my ($usepack, $use, $inpack, $name) = @_;
24 return sub (&) { ($usepack, $name, $inpack, $_[0]); };
31 is +__PACKAGE__->bar(qw(x y)), "main,x,y";