[Bps-public-commit] r16558 - in Prophet/branches/class-dispatch: .

[sartak at bestpractical.com]

Author: sartak
Date: Tue Oct 28 10:24:58 2008
New Revision: 16558

Modified:
   Prophet/branches/class-dispatch/   (props changed)
   Prophet/branches/class-dispatch/lib/Prophet/CLI/Dispatcher.pm

Log:
 r74658 at onn:  sartak | 2008-10-28 10:24:48 -0400
 Declarative_Dispatcher->run is a method again


Modified: Prophet/branches/class-dispatch/lib/Prophet/CLI/Dispatcher.pm
==============================================================================
--- Prophet/branches/class-dispatch/lib/Prophet/CLI/Dispatcher.pm	(original)
+++ Prophet/branches/class-dispatch/lib/Prophet/CLI/Dispatcher.pm	Tue Oct 28 10:24:58 2008
@@ -10,19 +10,19 @@
     redispatch($1, $self, @_);
 };
 
-on [ ['create', 'new'] ]         => run("Create");
-on [ ['show', 'display'] ]       => run("Show");
-on [ ['update', 'edit'] ]        => run("Update");
-on [ ['delete', 'del', 'rm'] ]   => run("Delete");
-on [ ['search', 'list', 'ls' ] ] => run("Search");
-
-on merge   => run("Merge");
-on pull    => run("Pull");
-on publish => run("Publish");
-on server  => run("Server");
-on config  => run("Config");
-on log     => run("Log");
-on shell   => run("Shell");
+on [ ['create', 'new'] ]         => run_command("Create");
+on [ ['show', 'display'] ]       => run_command("Show");
+on [ ['update', 'edit'] ]        => run_command("Update");
+on [ ['delete', 'del', 'rm'] ]   => run_command("Delete");
+on [ ['search', 'list', 'ls' ] ] => run_command("Search");
+
+on merge   => run_command("Merge");
+on pull    => run_command("Pull");
+on publish => run_command("Publish");
+on server  => run_command("Server");
+on config  => run_command("Config");
+on log     => run_command("Log");
+on shell   => run_command("Shell");
 
 on export => sub {
     my $self = shift;
@@ -48,7 +48,7 @@
     print $record->history_as_string;
 };
 
-sub run {
+sub run_command {
     my $name = shift;
 
     return sub {