Commit | Line | Data |
7e30ce83 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More tests => 1; |
4 | |
5 | sub fun :lvalue { return my $sv; } |
6 | |
7 | sub handle_fun { |
8 | my ($usepack, $use, $inpack, $name, $proto) = @_; |
9 | my $XX = sub (&) { |
10 | my $cr = $_[0]; |
11 | return sub { |
12 | return join(': ', $proto, $cr->()); |
13 | }; |
14 | }; |
15 | return (undef, $XX); |
16 | } |
17 | |
18 | use Devel::Declare; |
19 | use Devel::Declare fun => [ DECLARE_PROTO, \&handle_fun ]; |
20 | |
21 | my $foo = fun ($a, |
22 | $b) { "woot" }; |
23 | |
f283a13f |
24 | is($foo->(), "\$a,\n\$b: woot", 'proto declarator ok'); |