new remote code

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

diff --git a/lib/Tak/Request.pm b/lib/Tak/Request.pm
index 342ddba..49731d9 100644 (file)
--- 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 => @_) }