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