X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FResultStream.pm;h=6bf251f25584555419965d07d83325d4097ff0e7;hb=26300a7d3e2d9e07989735682ccd96209d8968bf;hp=28555a9e7e9f8bf789fb0067a86fda795d6cf058;hpb=5622b4df271135b1574c6346e50f3812f55a7c68;p=scpubgit%2FDKit.git diff --git a/lib/DX/ResultStream.pm b/lib/DX/ResultStream.pm index 28555a9..6bf251f 100644 --- a/lib/DX/ResultStream.pm +++ b/lib/DX/ResultStream.pm @@ -28,4 +28,13 @@ sub next { }; } +sub results { + my ($self) = @_; + my @all; + while (my $next = $self->next) { + push @all, $next; + } + return @all; +} + 1;