cmd_aliases => 'h',
isa => 'Bool',
is => 'ro',
- ,
- default => 0,
+ ,
);
has host => (
isa => 'Bool',
is => 'ro',
,
- default => 0
+
);
has background => (
);
+sub usage {
+ my ($self) = shift;
+
+ return pod2usage();
+
+}
+
my @argv = @ARGV;
sub run {
my $self = shift;
- pod2usage() if $self->help;
+ $self->usage if $self->help;
my $app = $self->app;
Class::MOP::load_class($app);
$app->run(