use Moo like the rest of the code.

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

package Data::Perl::Collection::Set;

use Moo;
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} ])
}

1;