-d and --debug work for me

[catagits/Catalyst-Runtime.git] / lib / Catalyst / ScriptRunner.pm

diff --git a/lib/Catalyst/ScriptRunner.pm b/lib/Catalyst/ScriptRunner.pm
index f8c5c51..b20faf5 100644 (file)
--- a/lib/Catalyst/ScriptRunner.pm
+++ b/lib/Catalyst/ScriptRunner.pm
@@ -3,8 +3,14 @@ use Moose;
 
 sub run {
     my ($self, $class, $scriptclass) = @_;
-    my $classtoload = "${class}::Script::$scriptclass"; 
-    Class::MOP::load_class($classtoload); 
-    $classtoload->new_with_options->run;
+    my $classtoload = "${class}::Script::$scriptclass";
+
+    # FIXME - Error handling / reporting
+    if ( eval { Class::MOP::load_class($classtoload) } ) {
+    } else {
+        $classtoload = "Catalyst::Script::$scriptclass";
+        Class::MOP::load_class($classtoload);
+    }
+    $classtoload->new_with_options( app => $class )->run;
 }
 1;