File Coverage

blib/lib/Routes/Tiny/Match.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	6	6	100.0
total	42	42	100.0

package Routes::Tiny::Match;

use strict;
use warnings;

sub new {
    my $class = shift;
    my (%params) = @_;

    my $self = {};
    bless $self, $class;

    $self->{name}      = $params{name};
    $self->{arguments} = $params{arguments};
    $self->{captures}  = $params{captures};
    $self->{parent}    = $params{parent};

    return $self;
}

sub arguments {
    my $self = shift;

    return $self->{arguments};
}

sub params { &captures }

sub captures {
    my $self = shift;

    my $captures = $self->{captures};

    return $self->parent ? {
        %{$self->parent->captures},
        %$captures
    } : $captures;
}

sub name {
    my $self = shift;

    return $self->{name};
}

sub parent {
    my $self = shift;

    return $self->{parent};
}

1;
__END__