Release commit for 0.001004

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

diff --git a/lib/Tak/Request.pm b/lib/Tak/Request.pm
index 342ddba..abb5ad5 100644 (file)
--- a/lib/Tak/Request.pm
+++ b/lib/Tak/Request.pm
@@ -7,6 +7,8 @@ has on_progress => (is => 'ro');
 
 has on_result => (is => 'ro', required => 1);
 
+has is_done => (is => 'rw', default => sub { 0 });
+
 sub progress {
   my ($self, @report) = @_;
   if (my $cb = $self->on_progress) {
@@ -16,9 +18,15 @@ sub progress {
 
 sub result {
   my ($self, $type, @data) = @_;
+  $self->is_done(1);
   $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 => @_) }