File Coverage

blib/lib/Thunderhorse/Request.pm

Criterion	Covered	Total	%
statement	40	40	100.0
branch	3	4	75.0
condition	2	3	66.6
subroutine	8	8	100.0
pod	2	3	66.6
total	55	58	94.8

package Thunderhorse::Request;
$Thunderhorse::Request::VERSION = '0.102';
use v5.40;
use Mooish::Base -standard;

use Future::AsyncAwait;
use Gears::X::Thunderhorse;
use List::Util qw(mesh);

extends 'PAGI::Request';
with 'Thunderhorse::Message';

sub FOREIGNBUILDARGS ($class, %args)
{
	Gears::X::Thunderhorse->raise('no context for response')
		unless $args{context};

	return $args{context}->pagi->@[0, 1];
}

sub update ($self, $scope, $receive, $send)
{
	$self->{scope} = $scope;
	$self->{receive} = $receive;

	# handling next match, so make sure path_params are invalidated
	delete $self->{path_params};
}

sub path_params ($self)
{
	return $self->{path_params} //= do {
		my $ctx = $self->context;
		my $match = $ctx->match;
		$match = $match->[0]
			if ref $match eq 'ARRAY';

		my $pattern = $match->location->pattern_obj;
		my $matched = $match->matched;
		+{mesh [map { $_->{label} } $pattern->tokens->@*], $matched};
	};
}

__END__