1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
#!perl
package Test::SubExporter::ObjGen::Obj;
use strict;
use warnings;
sub new {
my $class = shift;
my $code = $class->can(shift);
bless { code => $code } => $class;
}
sub group {
return {
foo => sub { return 'FOO' },
bar => sub { return 'BAR' },
};
}
sub baz {
return sub {
return 'BAZ';
};
}
use overload
'&{}' => sub { $_[0]->{code} },
'bool' => sub { 1 };
package Test::SubExporter::ObjGen;
my ($group_o, $group_b, $baz, $quux);
BEGIN {
$quux = sub { sub { 'QUUX' } };
bless $quux => 'Test::SubExporter::Whatever';
$group_o = sub { return {
ringo => sub { 'starr' },
richard => sub { 'starkey' },
} };
bless $group_o => 'Test::SubExporter::Whatever';
$baz = Test::SubExporter::ObjGen::Obj->new('baz');
$group_b = Test::SubExporter::ObjGen::Obj->new('group');
}
use Sub::Exporter -setup => {
exports => { baz => $baz, quux => $quux },
groups => { meta => $group_b, ringo => $group_o },
};
"call me";
|
