![]() |
![]()
| ![]() |
![]()
NAMEPath::Dispatcher::Declarative - sugary dispatcherSYNOPSISpackage MyApp::Dispatcher; use Path::Dispatcher::Declarative -base; on score => sub { show_score() }; on ['wield', qr/^\w+$/] => sub { wield_weapon($2) }; rewrite qr/^inv/ => "display inventory"; under display => sub { on inventory => sub { show_inventory() }; on score => sub { show_score() }; }; package Interpreter; MyApp::Dispatcher->run($input); DESCRIPTIONJifty::Dispatcher rocks!KEYWORDSdispatcher -> DispatcherReturns the Path::Dispatcher object for this class; the object that the sugar is modifying. This is useful for adding custom rules through the regular API, and inspection.dispatch path -> DispatchInvokes the dispatcher on the given path and returns a Path::Dispatcher::Dispatch object. Acts as a keyword within the same package; otherwise as a method (since these declarative dispatchers are supposed to be used by other packages).run path, argsPerforms a dispatch then invokes the "run" in Path::Dispatcher::Dispatch method on it.on path => sub {}Adds a rule to the dispatcher for the given path. The path may be:
under path => sub {}Creates a Path::Dispatcher::Rule::Under rule. The contents of the coderef should be nothing other "on" and "under" calls.then sub { }Creates a Path::Dispatcher::Rule::Always rule that will continue on to the next rule via "next_rule"The only argument is a coderef that processes normally (like on). NOTE: You *can* avoid running a following rule by using "last_rule". An example: under show => sub { then { print "Displaying "; }; on inventory => sub { print "inventory:\n"; ... }; on score => sub { print "score:\n"; ... }; AUTHORShawn M Moore, "<sartak at bestpractical.com>"BUGSPlease report any bugs or feature requests to "bug-path-dispatcher-declarative at rt.cpan.org", or through the web interface at <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Path-Dispatcher-Declarative>.COPYRIGHT & LICENSECopyright 2008-2010 Best Practical Solutions.This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
|