has acl => (
is => 'ro',
- isa => 'ArrayRef[Str]',
+ isa => 'Str',
predicate => 'has_acl',
);
has type => (
is => 'ro',
- isa => 'ArrayRef[Str]',
- default => sub { ['pub'] },
+ isa => 'Str',
+ default => 'pub',
);
has help => (
- is => 'ro',
- isa => 'ArrayRef[Str]',
- default => sub{ ['No help for this command'] },
-);
-
-has name => (
is => 'ro',
isa => 'Str',
default => 'No help for this command',
);
-has func => (
+has name => (
is => 'ro',
- isa => 'CodeRef',
+ isa => 'Str',
required => 1,
);
sub execute {
my ($self,$c,$args) = @_;
- $self->func->(@_);
}
1;