5 sub fun :lvalue { return my $sv; }
10 my ($usepack, $use, $inpack, $name, $proto) = @_;
14 return join(': ', $proto, $cr->());
21 use Devel::Declare fun => [ DECLARE_PROTO, \&handle_fun ];
23 my $foo = fun ($a, $b) { "woot" };
25 is($foo->(), '$a, $b: woot', 'proto declarator ok');
26 is(X(), 'what?', 'X sub restored ok');