File Coverage

blib/lib/Dispatcher/Small.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	4	4	100.0
condition	1	2	50.0
subroutine	6	6	100.0
pod	2	2	100.0
total	37	38	97.3

package Dispatcher::Small;
use 5.010;
use strict;
use warnings;

our $VERSION = "0.02";

sub new {
    my $class = shift;
    return bless +{ @_ }, $class;
}

sub match {
    my ($self, $env) = @_;
    my $i = 0;
    my ($regex, $class, @capture);
    my $path   = $env->{PATH_INFO} || '/';
    my $method = $env->{REQUEST_METHOD};
    while ($regex = $self->{$method}[$i * 2]) {
        if (@capture = $path =~ $regex) {
            return +{
                %{ $self->{$method}[$i * 2 + 1] },
                %+ ? %+ : ( capture => [@capture] ),
            };
        }
        $i++;
    }
}

1;
__END__