Commit | Line | Data |
---|---|---|
291722a8 | 1 | package Catalyst::ScriptRunner; |
2 | use Moose; | |
97d3e8cb | 3 | #extends qw(MooseX::App::Cmd::Command); |
410d96eb | 4 | |
291722a8 | 5 | |
cc999ce2 | 6 | sub run { |
7 | my ($self, $class, $scriptclass) = @_; | |
c1c59374 | 8 | my $classtoload = "${class}::Script::$scriptclass"; |
9 | ||
10 | # FIXME - Error handling / reporting | |
11 | if ( eval { Class::MOP::load_class($classtoload) } ) { | |
d24d92d9 | 12 | } else { |
13 | $classtoload = "Catalyst::Script::$scriptclass"; | |
c1c59374 | 14 | Class::MOP::load_class($classtoload); |
d24d92d9 | 15 | } |
c1c59374 | 16 | $classtoload->new_with_options( app => $class )->run; |
cc999ce2 | 17 | } |
291722a8 | 18 | 1; |