File Coverage

blib/lib/Path/Dispatcher/Match.pm

Criterion	Covered	Total	%
statement	26	29	89.6
branch	4	4	100.0
condition			n/a
subroutine	8	9	88.8
pod	2	3	66.6
total	40	45	88.8

package Path::Dispatcher::Match;
# ABSTRACT: the result of a successful rule match

our $VERSION = '1.07';

use Moo;

use Type::Utils qw(class_type);
use Types::Standard qw(Str ArrayRef HashRef Undef);
use Path::Dispatcher::Path;
use Path::Dispatcher::Rule;

has path => (
    is       => 'ro',
    isa      => class_type('Path::Dispatcher::Path'),
    required => 1,
);

has leftover => (
    is  => 'ro',
    isa => Str,
);

has rule => (
    is       => 'ro',
    isa      => class_type('Path::Dispatcher::Rule'),
    required => 1,
    handles  => ['payload'],
);

has positional_captures => (
    is      => 'ro',
    isa     => ArrayRef[Str|Undef],
    default => sub { [] },
);

has named_captures => (
    is      => 'ro',
    isa     => HashRef[Str|Undef],
    default => sub { {} },
);

has parent => (
    is        => 'ro',
    isa      => class_type('Path::Dispatcher::Match'),
    predicate => 'has_parent',
);

sub run {
    my $self = shift;

    local $_ = $self->path;
    return scalar $self->rule->run($self, @_);
}

sub pos {
    my $self  = shift;
    my $index = shift;

    return undef if $index == 0;

    $index-- if $index > 0;

    return $self->positional_captures->[$index];
}

sub named {
    my $self = shift;
    my $key  = shift;
    return $self->named_captures->{$key};
}

__PACKAGE__->meta->make_immutable;
no Moo;

1;

__END__