File Coverage

blib/lib/Gears/Router/Location.pm

Criterion	Covered	Total	%
statement	22	26	84.6
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	3	3	100.0
total	31	36	86.1

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

use Gears::Router::Pattern;

has param 'pattern' => (
	isa => Str,
);

has field 'pattern_obj' => (
	isa => InstanceOf ['Gears::Router::Pattern'],
	lazy => 1,
);

with qw(
	Gears::Router::Proto
);

sub is_bridge ($self)
{
	return $self->locations->@* > 0;
}

sub compare ($self, $path)
{
	return $self->pattern_obj->compare($path);
}

sub build ($self, @more_args)
{
	return $self->pattern_obj->build(@more_args);
}

# must be reimplemented
sub _build_pattern_obj ($self)
{
	...;
}

__END__