Add in Data::Perl::Collection::Set from DBIx-Data-Store-old so we can run tests.

[catagits/App-IdiotBox.git] / t / lib / Data / Perl / Collection / Set.pm

diff --git a/t/lib/Data/Perl/Collection/Set.pm b/t/lib/Data/Perl/Collection/Set.pm
new file mode 100644 (file)
index 0000000..a35c62b
--- /dev/null
+++ b/t/lib/Data/Perl/Collection/Set.pm
@@ -0,0 +1,21 @@
+package Data::Perl::Collection::Set;
+
+use Moose;
+use Method::Signatures::Simple;
+use Data::Perl::Stream::Array;
+
+has '_members' => (is => 'ro', required => 1, init_arg => 'members');
+
+method map ($fun) {
+  (ref $self)->new(
+    members => [ map $fun->($_), @{$self->_members} ]
+  )
+}
+
+method to_stream {
+  Data::Perl::Stream::Array->new(array => [ @{$self->_members} ])
+}
+
+__PACKAGE__->meta->make_immutable;
+
+1;