[scpubgit/Tak.git] / lib / Tak / Request.pm

package Tak::Request;

use Moo;

has tag => (is => 'ro', required => 1);

has respond_to => (is => 'ro', required => 1, weak_ref => 1);

sub respond {
  my $self = shift;
  $self->respond_to->send_response($self->tag => @_);
}

1;
Commit	Line	Data
36cf3bcb	1	package Tak::Request;
	2
	3	use Moo;
	4
	5	has tag => (is => 'ro', required => 1);
	6
	7	has respond_to => (is => 'ro', required => 1, weak_ref => 1);
	8
	9	sub respond {
	10	my $self = shift;
	11	$self->respond_to->send_response($self->tag => @_);
	12	}
	13
	14	1;