Path::Dispatcher::Rule::Dispatch - redispatch

Path-Dispatcher documentation Contained in the Path-Dispatcher distribution.

Index

Code Index:

NAME

Top

Path::Dispatcher::Rule::Dispatch - redispatch

SYNOPSIS

Top

    my $dispatcher = Path::Dispatcher->new(
        rules => [
            Path::Dispatcher::Rule::Tokens->new(
                tokens => [ 'help' ],
                block  => sub { show_help },
            ),
            Path::Dispatcher::Rule::Tokens->new(
                tokens => [ 'quit' ],
                block  => sub { exit },
            ),
        ],
    );

    my $rule = Path::Dispatcher::Rule::Dispatch->new(
        dispatcher => $dispatcher,
    );

    $rule->run("help");

DESCRIPTION

Top

Rules of this class use another dispatcher to match the path.

ATTRIBUTES

Top

dispatcher

A Path::Dispatcher object. Its matches will be returned by matching this rule.

Path-Dispatcher documentation Contained in the Path-Dispatcher distribution. 
package Path::Dispatcher::Rule::Dispatch;
use Any::Moose;
extends 'Path::Dispatcher::Rule';

has dispatcher => (
    is       => 'ro',
    isa      => 'Path::Dispatcher',
    required => 1,
    handles  => ['rules', 'complete'],
);

sub match {
    my $self = shift;
    my $path = shift;

    my $dispatch = $self->dispatcher->dispatch($path);
    return $dispatch->matches;
}

__PACKAGE__->meta->make_immutable;
no Any::Moose;

1;

__END__