File Coverage

blib/lib/Kelp/Routes/Location.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch	2	4	50.0
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	17	20	85.0

package Kelp::Routes::Location;

use Kelp::Base;
use Carp;

attr 'router' => sub { croak 'router is required' };
attr 'parent' => sub { croak 'parent is required' };

sub add
{
    my ($self, $pattern, $descr, $parent_data) = @_;
    my $parent = $self->parent;

    croak "Cannot chain 'add' calls because the parent route was not parsed correctly"
        unless $parent;

    # discard $parent_data from args
    $parent_data = {
        ($parent->has_name ? (name => $parent->name) : ()),
        pattern => $parent->pattern,
    };

    # parent is a bridge now (even if the add call fails)
    $parent->bridge(1);
    return $self->router->add($pattern, $descr, $parent_data);
}

1;

# internal only
# It's not a router reimplementation! It's just a facade for the add method of
# the router. Developers will interact with it without even knowing.