[Bps-public-commit] r16566 - in sd/branches/sd-dispatcher: .

[sartak at bestpractical.com]

Author: sartak
Date: Tue Oct 28 12:47:50 2008
New Revision: 16566

Modified:
   sd/branches/sd-dispatcher/   (props changed)
   sd/branches/sd-dispatcher/lib/App/SD/CLI/Dispatcher.pm

Log:
 r74667 at onn:  sartak | 2008-10-28 12:47:36 -0400
 Include a run_command for sd


Modified: sd/branches/sd-dispatcher/lib/App/SD/CLI/Dispatcher.pm
==============================================================================
--- sd/branches/sd-dispatcher/lib/App/SD/CLI/Dispatcher.pm	(original)
+++ sd/branches/sd-dispatcher/lib/App/SD/CLI/Dispatcher.pm	Tue Oct 28 12:47:50 2008
@@ -32,13 +32,21 @@
     run($2, $self, @_);
 };
 
-
 __PACKAGE__->dispatcher->add_rule(
     Path::Dispatcher::Rule::Dispatch->new(
         dispatcher => Prophet::CLI::Dispatcher->dispatcher,
     ),
 );
 
+sub run_command { Prophet::CLI::Dispatcher::run_command(@_) }
+
+sub class_names {
+    my $self = shift;
+    my $name = shift;
+
+    ("App::SD::CLI::Command::$name", $self->SUPER::class_names($name, @_));
+}
+
 __PACKAGE__->meta->make_immutable;
 no Moose;