File Coverage

blib/lib/Gears/Router/Pattern/Match.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	6	6	100.0
condition			n/a
subroutine	4	4	100.0
pod	2	2	100.0
total	31	31	100.0

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

extends 'Gears::Router::Pattern';

sub compare ($self, $request_path)
{
	my $pattern = $self->pattern;

	if ($self->is_bridge) {
		return undef
			unless scalar $request_path =~ m/^\Q$pattern\E/;
	}
	else {
		return undef
			unless $request_path eq $pattern;
	}

	# this pattern does not really match anything other than the pattern itself
	# - return empty (but defined) list of matches
	return [];
}

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

__END__