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;
