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=49731d9012b4a458898243655932762d112f7e2b;hb=77bf1d9b5b6832894676ab549ee5664cb7200d33;hp=342ddba714c80631a6d4a20291ca9e60847b0433;hpb=31a246e4b1ef71cc1991c1631573f6c80cdf41b5;p=scpubgit%2FTak.git

diff --git a/lib/Tak/Request.pm b/lib/Tak/Request.pm
index 342ddba..49731d9 100644
--- a/lib/Tak/Request.pm
+++ b/lib/Tak/Request.pm
@@ -19,6 +19,11 @@ sub result {
   $self->on_result->(Tak::Result->new(type => $type, data => \@data));
 }
 
+sub flatten {
+  my ($self) = @_;
+  return ($self->type, @{$self->data});
+}
+
 sub success { shift->result(success => @_) }
 sub mistake { shift->result(mistake => @_) }
 sub failure { shift->result(failure => @_) }