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

[sartak at bestpractical.com]

Author: sartak
Date: Tue Aug  5 19:00:47 2008
New Revision: 14815

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

Log:
 r54131 at gorgoroth:  sartak | 2008-08-05 19:00:39 -0400
 Begin the dispatch logic


Modified: Prophet/branches/dispatcher/Makefile.PL
==============================================================================
--- Prophet/branches/dispatcher/Makefile.PL	(original)
+++ Prophet/branches/dispatcher/Makefile.PL	Tue Aug  5 19:00:47 2008
@@ -24,6 +24,7 @@
 requires('MooseX::AttributeHelpers' => '0.12');
 requires('MooseX::ClassAttribute' => '0.04');
 requires('XML::Atom::SimpleFeed');
+requires('Path::Dispatcher');
 
 features(
     'Web server' => [

Added: Prophet/branches/dispatcher/lib/Prophet/CLI/Dispatcher.pm
==============================================================================
--- (empty file)
+++ Prophet/branches/dispatcher/lib/Prophet/CLI/Dispatcher.pm	Tue Aug  5 19:00:47 2008
@@ -0,0 +1,13 @@
+package Prophet::CLI::Dispatcher;
+use strict;
+use warnings;
+use Path::Dispatcher -base;
+
+on qr{(.*)\s+(\d+)$} => sub {
+    my $cli = shift;
+    $cli->set_arg(id => $1);
+    run($1, $args, @_);
+};
+
+1;
+