File Coverage

blib/lib/Sleep/Routes.pm

Criterion	Covered	Total	%
statement	6	22	27.2
branch	0	4	0.0
condition			n/a
subroutine	2	5	40.0
pod	3	3	100.0
total	11	34	32.3

package Sleep::Routes;

use strict;
use warnings;

sub new {
    my $klass  = shift;
    my $routes = shift;

    die "Not an ARRAY" unless ref($routes) eq 'ARRAY';

    my $self = bless {
        routes => $routes,
    }, $klass;

    return $self;
}


sub parse_url {
    my $self = shift;
    my $url  = shift;

    for (@{$self->{routes}}) {
        if (my (@vars) = $url =~ m/$_->{route}/) {
            return ($_, @vars);
        }
    }

    return;
}

sub resource {
    my $self = shift;
    my $url  = shift;

    my ($route, @vars) = $self->parse_url($url);
    return ($route, @vars);
}

1;

__END__