path::dispatcher::cookbook(3pm) [debian man page]

Path::Dispatcher::Cookbook(3pm) 			User Contributed Perl Documentation			   Path::Dispatcher::Cookbook(3pm)

NAME

       Path::Dispatcher::Cookbook - A cookbook for Path::Dispatcher

RECIPES

   How can I change the path delimiter from a space ' ' to a slash '/'?
       When importing the Path::Dispatcher::Declarative sugar, specify the "token_delimiter" option for the "default" group.

	   package My::Dispatcher;
	   use Path::Dispatcher::Declarative -base, -default => {
	       token_delimiter => '/',
	   };

       Or define a subclass of Path::Dispatcher::Declarative with a "token_delimiter" method:

	   package Web::Dispatcher::Maker;
	   use base 'Path::Dispatcher::Declarative';

	   use constant token_delimiter => '/';

	   package My::Dispatcher;
	   use Web::Dispatcher::Maker -base;

   How can I do rule chaining (like in Catalyst)?
       You can use a "chain" rule approximate chaining behavior:

	   package MyDispatcher;
	   use Path::Dispatcher::Declarative -base;

	   under show => sub {
	       chain {
		   print "Displaying ";
	       };
	       on inventory => sub {
		   print "inventory:
";
		   ...
	       };
	       on score => sub {
		   print "score:
";
		   ...
	       };
	   };

	   package main;

	   MyDispatcher->run("show inventory"); # "Displaying inventory:
 ..."

	   MyDispatcher->run("show score"); # "Displaying score:
 ..."

   How can I configure tab completion for shells?
       First add a dispatcher rule for generating completions based on the path. Here we name it _gencomp, so that if the user types "app _gencomp
       hel" it will print out the various completions of "hel".

	   on qr/^_gencomps*(.*)/ => sub {
	       my $prefix = shift->pos(1);
	       $prefix = "" if !defined($prefix);
	       print "$_
" for dispatcher->complete($prefix);
	   };

       Then tell your shell about how to use _gencomp. For zsh it might look like this (replace "APP" with your binary name):

	   /usr/share/zsh/site-functions/_APP:
	       #compdef APP
	       typeset -a APP_completions
	       APP_completions=($($words[1] _gencomp $words[2,-1]))
	       compadd $APP_completions

       For bash it might look like this:

	   /etc/bash_completion.d/APP.bash:
	       function _APP_()
	       {
		   COMPREPLY=($($1 _gencomp ${COMP_WORDS[COMP_CWORD]}))
	       }

	       complete -F _APP_ APP

perl v5.12.4							    2011-08-30					   Path::Dispatcher::Cookbook(3pm)

Check Out this Related Man Page

Path::Dispatcher::Match(3pm)				User Contributed Perl Documentation			      Path::Dispatcher::Match(3pm)

NAME

       Path::Dispatcher::Match - the result of a successful rule match

SYNOPSIS

	   my $rule = Path::Dispatcher::Rule::Tokens->new(
	       tokens => [ 'attack', qr/^w+$/ ],
	       block  => sub {
		   my $match = shift;
		   attack($match->pos(2))
	       },
	   );

	   my $match = $rule->match("attack dragon");

	   # introspection
	   $match->path 	       # "attack dragon"
	   $match->leftover	       # empty string (populated with prefix rules)
	   $match->rule 	       # $rule
	   $match->positional_captures # ["attack", "dragon"] (decided by the rule)
	   $match->pos(1)	       # "attack"
	   $match->pos(2)	       # "dragon"

	   $match->run		       # attack("dragon")

DESCRIPTION

       If a Path::Dispatcher::Rule successfully matches a path, it creates one or more "Path::Dispatcher::Match" objects.

ATTRIBUTES

   rule
       The Path::Dispatcher::Rule that created this match.

   path
       The path that the rule matched.

   leftover
       The rest of the path. This is populated when the rule matches a prefix of the path.

   positional_captures
       Any positional captures generated by the rule. For example, Path::Dispatcher::Rule::Regex populates this with the capture variables.

   named_captures
       Any named captures generated by the rule. For example, Path::Dispatcher::Rule::Regex populates this with named captures.

   parent
       The parent match object, if applicable (which may be set if this match is the child of, for exampl, a Path::Dispatcher::Rule::Under prefix)

METHODS

   run
       Executes the rule's codeblock with the same arguments.

   pos($i)
       Returns the $ith positional capture, 1-indexed.

perl v5.12.4							    2011-08-30					      Path::Dispatcher::Match(3pm)

Linux and UNIX Man Pages

path::dispatcher::cookbook(3pm) [debian man page]

Check Out this Related Man Page