File Coverage

blib/lib/Thunderhorse/Response.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	2	50.0
total	29	31	93.5

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

use Gears::X::Thunderhorse;

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

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

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

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

__END__