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