Commit | Line | Data |
1eaa87ec |
1 | use strict; |
2 | use warnings; |
b52072dc |
3 | use Test::More; |
1eaa87ec |
4 | |
5 | sub method :lvalue {my $sv;} |
6 | |
7 | sub handle_method { |
8 | my ($usepack, $use, $inpack, $name, $proto) = @_; |
9 | my $H = sub (&) { }; |
10 | if (defined $proto) { |
11 | return (sub :lvalue {my $sv;}, $H); |
12 | } |
13 | return ($H); |
14 | } |
15 | |
16 | use Devel::Declare; |
17 | use Devel::Declare method => [ DECLARE_NAME|DECLARE_PROTO, \&handle_method ]; |
18 | |
19 | method blah { |
20 | |
21 | }; |
22 | |
23 | method () { |
24 | |
25 | }; |
26 | |
27 | method wahey () { |
28 | |
29 | }; |
30 | |
31 | ok(1, "Survived compilation"); |
b52072dc |
32 | |
33 | done_testing; |