lib/Catalyst/ScriptRunner.pm

   1 package Catalyst::ScriptRunner;
   2 use Moose;
   3
   4 sub run {
   5     my ($self, $class, $scriptclass) = @_;
   6     my $classtoload = "${class}::Script::$scriptclass";
   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     }
  14 }
  15 1;