X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FSetOver.pm;h=30d7516ffff202d55f35da4679b9a18c950263b8;hb=aa9537474db903f2f3516eafe7b0f7b03348685c;hp=c72accc81bbd6eb3ee9eca2746bf10c9ad0b4078;hpb=577a2146b78ad2f1703c4231c6a11c9b1ec9827c;p=scpubgit%2FDKit.git diff --git a/lib/DX/SetOver.pm b/lib/DX/SetOver.pm index c72accc..30d7516 100644 --- a/lib/DX/SetOver.pm +++ b/lib/DX/SetOver.pm @@ -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 {