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"; |
7 | Class::MOP::load_class($classtoload); |
8 | $classtoload->new_with_options->run; |
9 | } |
291722a8 |
10 | 1; |