package Catalyst::Script::Create;
use Moose;
-use Getopt::Long;
use Pod::Usage;
use Catalyst::Helper;
use MooseX::Types::Moose qw/Str Bool/;
use namespace::autoclean;
with "MooseX::Getopt";
+#extends qw(MooseX::App::Cmd);
+
has _app => (
reader => 'app',
use FindBin;
use lib "$FindBin::Bin/../lib";
+#extends qw(MooseX::App::Cmd);
+
+
has _app => (
reader => 'app',
init_arg => 'app',
use namespace::autoclean;
with 'MooseX::Getopt';
+#extends qw(MooseX::App::Cmd);
has debug => (
traits => [qw(Getopt)],
use MooseX::Types::Moose qw/Str Bool/;
use namespace::autoclean;
+#extends qw(MooseX::App::Cmd);
+
has _app => (
reader => 'app',
init_arg => 'app',
package Catalyst::ScriptRunner;
use Moose;
+extends qw(MooseX::App::Cmd::Command);
+
sub run {
my ($self, $class, $scriptclass) = @_;
## because this is a test
use lib "$Bin/../../../lib";
-use Catalyst::ScriptRunner;
-Catalyst::ScriptRunner->run('TestApp','Server');
+use Catalyst::ScriptRunner -run 'TestApp' 'Server';
+