[Bps-public-commit] r16076 - in Prophet/branches/dispatcher: . lib/Prophet/CLI

[sartak at bestpractical.com]

Author: sartak
Date: Thu Sep 25 16:59:55 2008
New Revision: 16076

Removed:
   Prophet/branches/dispatcher/lib/Prophet/CLI/Command/Update.pm
Modified:
   Prophet/branches/dispatcher/   (props changed)
   Prophet/branches/dispatcher/lib/Prophet/CLI/Dispatcher.pm

Log:
 r72490 at onn:  sartak | 2008-09-25 16:59:44 -0400
 on "string" is interpreted as a one-token list; no need to wrap it in []


Modified: Prophet/branches/dispatcher/lib/Prophet/CLI/Dispatcher.pm
==============================================================================
--- Prophet/branches/dispatcher/lib/Prophet/CLI/Dispatcher.pm	(original)
+++ Prophet/branches/dispatcher/lib/Prophet/CLI/Dispatcher.pm	Thu Sep 25 16:59:55 2008
@@ -32,7 +32,7 @@
     documentation => 'If the command operates on a record, it will be stored here.',
 );
 
-on ['server'] => sub {
+on server => sub {
     my $self = shift;
     my $server = $self->setup_server;
     $server->run;
@@ -44,7 +44,7 @@
     run($1, $self);
 };
 
-on ['create'] => sub {
+on create => sub {
     my $self   = shift;
     my $record = $self->context->_get_record_object;
 
@@ -66,7 +66,7 @@
         $record->uuid;
 };
 
-on ['delete'] => sub {
+on delete => sub {
     my $self = shift;
 
     $self->context->require_uuid;
@@ -81,7 +81,7 @@
 
 };
 
-on ['update'] => sub {
+on update => sub {
     my $self = shift;
 
     $self->context->require_uuid;