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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
package MooseX::Exporter::Easy::Meta::Role::Package;
use Moose::Role;
has with_meta => (
traits => ['Array'],
isa => 'ArrayRef[Str]',
default => sub { [] },
handles => {
with_meta => 'elements',
_add_with_meta => 'push',
}
);
sub add_with_meta {
my $self = shift;
my ($name, $sub) = @_;
$self->add_package_symbol('&' . $name, $sub);
$self->_add_with_meta($name);
}
has as_is => (
traits => ['Array'],
isa => 'ArrayRef[Str]',
default => sub { [] },
handles => {
as_is => 'elements',
_add_as_is => 'push',
}
);
sub add_as_is {
my $self = shift;
my ($name, $sub) = @_;
$self->add_package_symbol('&' . $name, $sub);
$self->_add_as_is($name);
}
has also => (
traits => ['Array'],
isa => 'ArrayRef[Str]',
default => sub { [] },
handles => {
also => 'elements',
add_also => 'push',
}
);
has class_metaroles => (
is => 'rw',
isa => 'HashRef[ArrayRef[Str]]',
predicate => 'has_class_metaroles',
);
has role_metaroles => (
is => 'rw',
isa => 'HashRef[ArrayRef[Str]]',
predicate => 'has_role_metaroles',
);
has base_class_roles => (
traits => ['Array'],
isa => 'ArrayRef[Str]',
default => sub { [] },
handles => {
base_class_roles => 'elements',
add_base_class_roles => 'push',
has_base_class_roles => 'count',
}
);
sub setup_exporter {
my $self = shift;;
my ($import, $unimport, $init_meta) = Moose::Exporter->build_import_methods(
exporting_package => $self->name,
with_meta => [$self->with_meta],
as_is => [$self->as_is],
also => [$self->also],
$self->has_class_metaroles
? (class_metaroles => $self->class_metaroles)
: (),
$self->has_role_metaroles
? (role_metaroles => $self->role_metaroles)
: (),
$self->has_base_class_roles
? (base_class_roles => [$self->base_class_roles])
: (),
);
$self->add_package_symbol('&import' =>
($self->has_package_symbol('&import_extra')
? sub {
my ($package, @args) = @_;
$package->import_extra(@args);
goto $import;
}
: $import)
);
$self->add_package_symbol('&unimport' =>
($self->has_package_symbol('&unimport_extra')
? sub {
my ($package, @args) = @_;
$package->unimport_extra(@args);
goto $unimport;
}
: $unimport)
);
if ($init_meta) {
$self->add_package_symbol('&init_meta' =>
($self->has_package_symbol('&init_meta_extra')
? sub {
my ($package, @args) = @_;
$package->init_meta_extra(@args);
goto $init_meta;
}
: $init_meta)
);
}
elsif ($self->has_package_symbol('&init_meta_extra')) {
$self->add_package_symbol('&init_meta' =>
sub { goto $_[0]->can('init_meta_extra') }
);
}
}
no Moose::Role;
1;
|
