Commit | Line | Data |
291722a8 |
1 | package Catalyst::ScriptRunner; |
2 | use Moose; |
410d96eb |
3 | extends qw(MooseX::App::Cmd::Command); |
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; |