add ->all method to SetOver
Matt S Trout [Fri, 14 Feb 2014 19:53:55 +0000 (19:53 +0000)]
lib/DX/SetOver.pm

index c72accc..30d7516 100644 (file)
@@ -16,8 +16,14 @@ sub get {
 
 sub to_stream {
   my ($self) = @_;
+  return DX::ArrayStream->from_array($self->all);
+}
+
+sub all {
+  my ($self) = @_;
   my $values = $self->values;
-  return DX::ArrayStream->from_array(@{$values}{sort keys %$values});
+  my @ret = @{$values}{sort keys %$values};
+  return @ret;
 }
 
 sub with_value {