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

[sartak at bestpractical.com]

Author: sartak
Date: Sat Sep 27 17:30:40 2008
New Revision: 16125

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

Log:
 r72998 at onn:  sartak | 2008-09-27 17:30:35 -0400
 Builtin aliases


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	Sat Sep 27 17:30:40 2008
@@ -38,7 +38,7 @@
     $server->run;
 };
 
-on create => sub {
+on [ [ 'create', 'new' ] ] => sub {
     my $self   = shift;
     my $record = $self->context->_get_record_object;
 
@@ -60,7 +60,7 @@
         $record->uuid;
 };
 
-on delete => sub {
+on [ [ 'delete', 'del', 'rm' ] ] => sub {
     my $self = shift;
 
     $self->context->require_uuid;
@@ -75,7 +75,7 @@
 
 };
 
-on update => sub {
+on [ [ 'update', 'edit' ] ] => sub {
     my $self = shift;
 
     $self->context->require_uuid;
@@ -96,7 +96,7 @@
     }
 };
 
-on show => sub {
+on [ [ 'show', 'display' ] ] => sub {
     my $self = shift;
 
     $self->context->require_uuid;
@@ -293,7 +293,7 @@
     print "Publish complete.\n";
 };
 
-on search => sub {
+on [ ['search', 'list', 'ls' ] ] => sub {
     my $self = shift;
 
     my $records = $self->context->get_collection_object;