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     # FIXME - Error handling / reporting
   9     if ( eval { Class::MOP::load_class($classtoload) } ) {
  10     } else {
  11         $classtoload = "Catalyst::Script::$scriptclass";
  12         Class::MOP::load_class($classtoload);
  13     }
  14     $classtoload->new_with_options( app => $class )->run;
  15 }
  16 1;