use namespace::autoclean;
with 'MooseX::Getopt';
+use MooseX::Types::Moose qw/Str/;
use Config::General;
use FindBin;
use lib "$FindBin::Bin/../lib";
+#extends qw(MooseX::App::Cmd);
+
+
has _app => (
reader => 'app',
init_arg => 'app',
traits => [qw(NoGetopt)],
- isa => 'Str',
+ isa => Str,
is => 'ro',
);
has conf => (
is => 'ro',
- isa => 'Str',
+ isa => Str,
traits => [qw(Getopt)],
cmd_alias => 'c',
+ documentation => qq{ specify a configuration file to read from }
);
-
-
-
-
sub usage {
- print "usage: perl script/boyosplace_deploy_schema.pl boyosplace.conf\n";
+ print "usage: perl script/myapp_deploy_schema.pl myapp.conf\n";
exit;
}
}
-no Moose;
__PACKAGE__->meta->make_immutable;
1;