File Coverage

blib/lib/Path/Dispatcher/Rule/Regex.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	7	8	87.5
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	35	36	97.2

package Path::Dispatcher::Rule::Regex;
# ABSTRACT: predicate is a regular expression

our $VERSION = '1.07';

use Moo;
use Types::Standard qw(RegexpRef);

extends 'Path::Dispatcher::Rule';

has regex => (
    is       => 'ro',
    isa      => RegexpRef,
    required => 1,
);

my $named_captures = $] > 5.010 ? eval 'sub { %+ }' : sub { };

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

    # davem++ http://www.nntp.perl.org/group/perl.perl5.porters/2013/03/msg200156.html
    if ($self->prefix) {
        eval q{$'};
    }

    return unless my @positional = $path->path =~ $self->regex;

    my %named = $named_captures->();

    my %extra;

    # only provide leftover if we need it. $' is slow, and it may be undef
    if ($self->prefix) {
        $extra{leftover} = eval q{$'};
        delete $extra{leftover} if !defined($extra{leftover});
    }

    return {
        positional_captures => \@positional,
        named_captures      => \%named,
        %extra,
    }
}

__PACKAGE__->meta->make_immutable;
no Moo;

1;

__END__