lib/Catalyst/ScriptRunner.pm

   1 package Catalyst::ScriptRunner;
   2 use Moose;
   3 #extends qw(MooseX::App::Cmd::Command);
   4
   5
   6 sub run {
   7     my ($self, $class, $scriptclass) = @_;
   8     my $classtoload = "${class}::Script::$scriptclass";
   9
  10     # FIXME - Error handling / reporting
  11     if ( eval { Class::MOP::load_class($classtoload) } ) {
  12     } else {
  13         $classtoload = "Catalyst::Script::$scriptclass";
  14         Class::MOP::load_class($classtoload);
  15     }
  16     $classtoload->new_with_options( app => $class )->run;
  17 }
  18 1;