[Bps-public-commit] r16663 - in Path-Dispatcher/trunk: lib/Path/Dispatcher/Rule

[sartak at bestpractical.com]

Author: sartak
Date: Tue Nov  4 17:35:21 2008
New Revision: 16663

Modified:
   Path-Dispatcher/trunk/   (props changed)
   Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule/Dispatch.pm

Log:
 r74952 at onn:  sartak | 2008-11-03 22:01:06 -0500
 Fill in the blanks of the PDRD synopsis :)


Modified: Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule/Dispatch.pm
==============================================================================
--- Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule/Dispatch.pm	(original)
+++ Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule/Dispatch.pm	Tue Nov  4 17:35:21 2008
@@ -34,12 +34,12 @@
     my $dispatcher = Path::Dispatcher->new(
         rules => [
             Path::Dispatcher::Rule::Tokens->new(
-                tokens => [  ],
-                block  => sub {  },
+                tokens => [ 'help' ],
+                block  => sub { show_help },
             ),
             Path::Dispatcher::Rule::Tokens->new(
-                tokens => [  ],
-                block  => sub {  },
+                tokens => [ 'quit' ],
+                block  => sub { exit },
             ),
         ],
     );
@@ -48,7 +48,7 @@
         dispatcher => $dispatcher,
     );
 
-    $rule->run("");
+    $rule->run("help");
 
 =head1 DESCRIPTION