blob: d6f13df7bf39443cf33cd1ee013568235e0936ae (
plain) (
blame)
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
|
#!/usr/bin/perl
package App::Hiveminder::Command;
use Moose;
use Net::Hiveminder;
extends 'MooseX::App::Cmd::Command';
has _hm => (
isa => 'Net::Hiveminder',
is => 'ro',
default => sub { Net::Hiveminder->new(use_config => 1) },
reader => 'hm',
);
sub run {
my ($self, $opt, $args) = @_;
my $result = $self->command($args);
if (defined $result) {
chomp $result;
$result .= "\n" if length $result > 0;
print $result;
}
else {
die $self->usage->text;
}
}
sub command {
die shift->usage_error("This command is not implemented.");
}
__PACKAGE__->meta()->make_immutable();
1;
|