1 package Data::Perl::Stream::Array;
4 use Method::Signatures::Simple;
6 has _array => (is => 'rw', required => 1, init_arg => 'array');
8 method BUILD { $self->_array([ @{$self->_array} ]) }
11 my $ary = $self->_array;
16 method map ($map_func) {
17 ref($self)->new(array => [ map { $map_func->($_) } @{$self->_array} ]);