1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# ============================================================================
package MooseX::App::Meta::Role::Class::Command;
# ============================================================================
use utf8;
use 5.010;
use Moose::Role;
has 'app_attribute_metaroles' => (
is => 'rw',
isa => 'ArrayRef[Str]',
predicate => 'has_app_attribute_metaroles',
traits => ['Array'],
handles => {
app_attribute_metaroles_add => 'push',
app_attribute_metaroles_uniq => 'uniq',
}
);
1;
|
