projects
/
p5sagit/Devel-Declare.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
d6f150a8112df110f425320e26d3e6c023b36b4e
[p5sagit/Devel-Declare.git]
/
t
/
combi.t
1
use strict;
2
use warnings;
3
use Test::More 0.88;
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");
32
33
done_testing;