X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FScriptRunner.pm;h=06b36b5725ab39bb0ad7d127bb48e7b28cf3e87f;hb=c52f6c86367cb6a5db10797b52fe869439f0ae3c;hp=de3c8bb5669f1b490ff8663f8a9d9ed3c9508160;hpb=1beae7ed73fa0e91a39ab4b1b8b181aee4039535;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/ScriptRunner.pm b/lib/Catalyst/ScriptRunner.pm index de3c8bb..06b36b5 100644 --- a/lib/Catalyst/ScriptRunner.pm +++ b/lib/Catalyst/ScriptRunner.pm @@ -6,21 +6,18 @@ use File::Spec; use namespace::autoclean; sub run { - my ($self, $class, $scriptclass) = @_; + my ($self, $class, $scriptclass, %args) = @_; my $classtoload = "${class}::Script::$scriptclass"; lib->import(File::Spec->catdir($FindBin::Bin, '..', 'lib')); - warn("load $classtoload or Catalyst::Script::$scriptclass"); - - # FIXME - Error handling / reporting unless ( eval { Class::MOP::load_class($classtoload) } ) { warn("Could not load $classtoload - falling back to Catalyst::Script::$scriptclass : $@\n") if $@ !~ /Can't locate/; $classtoload = "Catalyst::Script::$scriptclass"; Class::MOP::load_class($classtoload); } - $classtoload->new_with_options( application_name => $class )->run; + $classtoload->new_with_options( application_name => $class, %args )->run; } __PACKAGE__->meta->make_immutable;