X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTak%2FRequest.pm;fp=lib%2FTak%2FRequest.pm;h=669e02727f813361389c5f9e5dac371b20cc8732;hb=36cf3bcb9b7a2e87d48ebc657f50680ef23c96fe;hp=0000000000000000000000000000000000000000;hpb=ac134649b64cae32203281cc3b40b612e4a07d7e;p=scpubgit%2FTak.git

diff --git a/lib/Tak/Request.pm b/lib/Tak/Request.pm
new file mode 100644
index 0000000..669e027
--- /dev/null
+++ b/lib/Tak/Request.pm
@@ -0,0 +1,14 @@
+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;