lib/Tak/Request.pm

   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 has respond_with => (is => 'ro', required => 1);
  10
  11 sub respond {
  12   my $self = shift;
  13   $self->respond_to->${\$self->respond_with}($self->tag => @_);
  14 }
  15
  16 1;