File Coverage

blib/lib/Gears/Router/Proto.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	16	17	94.1

package Gears::Router::Proto;
$Gears::Router::Proto::VERSION = '0.101';
use v5.40;
use Mooish::Base -standard, -role;

requires qw(
	pattern
);

has param 'router' => (
	isa => InstanceOf ['Gears::Router'],
	weak_ref => 1,
);

has field 'locations' => (
	isa => ArrayRef [InstanceOf ['Gears::Router::Location']],
	default => sub { [] },
);

sub add ($self, $pattern, $data = {})
{
	my $location = $self->router->_build_location(
		$data->%*,
		router => $self->router,
		pattern => $self->pattern . $pattern,
	);

	push $self->locations->@*, $location;
	return $location;
}