X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FAutobox%2FArray.pm;h=62344356ca1c4ce4fdc26f8409125e9496a9966b;hb=09a0196c32a63189d212a905146e0271861255b7;hp=a33c1b5178f2573d82970db234c0c5c780d75b21;hpb=6cf5bcf23399cc82e234f91a2e78f262bf70eab1;p=gitmo%2FMoose-Autobox.git diff --git a/lib/Moose/Autobox/Array.pm b/lib/Moose/Autobox/Array.pm index a33c1b5..6234435 100644 --- a/lib/Moose/Autobox/Array.pm +++ b/lib/Moose/Autobox/Array.pm @@ -1,11 +1,13 @@ package Moose::Autobox::Array; use Moose::Role 'with'; -use autobox; +use Perl6::Junction; +use Moose::Autobox; -our $VERSION = '0.01'; +our $VERSION = '0.03'; with 'Moose::Autobox::Ref', - 'Moose::Autobox::List'; + 'Moose::Autobox::List', + 'Moose::Autobox::Indexed'; ## Array Interface @@ -34,7 +36,12 @@ sub delete { sub shift { my ($array) = @_; CORE::shift @$array; -} +} + +sub slice { + my ($array, $indicies) = @_; + [ @{$array}[ @{$indicies} ] ]; +} # NOTE: # sprintf args need to be reversed, @@ -78,11 +85,17 @@ sub sort { [ CORE::sort { $sub->($a, $b) } @$array ]; } -# ::Value requirement +## ::Indexed implementation -sub print { CORE::print @{$_[0]} } +sub at { + my ($array, $index) = @_; + $array->[$index]; +} -## ::Indexed implementation +sub put { + my ($array, $index, $value) = @_; + $array->[$index] = $value; +} sub exists { my ($array, $index) = @_; @@ -104,4 +117,186 @@ sub kv { $array->keys->map(sub { [ $_, $array->[$_] ] }); } +sub flatten { + @{$_[0]} +} + +## Junctions + +sub all { + my ($array) = @_; + return Perl6::Junction::all(@$array); +} + +sub any { + my ($array) = @_; + return Perl6::Junction::any(@$array); +} + +sub none { + my ($array) = @_; + return Perl6::Junction::none(@$array); +} + +sub one { + my ($array) = @_; + return Perl6::Junction::one(@$array); +} + +## Print + +sub print { CORE::print @{$_[0]} } +sub say { CORE::print @{$_[0]}, "\n" } + 1; + +__END__ + +=pod + +=head1 NAME + +Moose::Autobox::Array - the Array role + +=head1 SYNOPOSIS + + use Moose::Autobox; + + [ 1..5 ]->isa('ARRAY'); # true + [ a..z ]->does('Moose::Autobox::Array'); # true + [ 0..2 ]->does('Moose::Autobox::List'); # true + + print "Squares: " . [ 1 .. 10 ]->map(sub { $_ * $_ })->join(', '); + + print [ 1, 'number' ]->sprintf('%d is the loneliest %s'); + + print ([ 1 .. 5 ]->any == 3) ? 'true' : 'false'; # prints 'true' + +=head1 DESCRIPTION + +This is a role to describe operations on the Array type. + +=head1 METHODS + +=over 4 + +=item B + +=item B + +=item B + +=item B + +=item B + +=item B + +=item B + +=item B + +=back + +=head2 Indexed implementation + +=over 4 + +=item B + +=item B + +=item B + +=item B + +=item B + +=item B + +=back + +=head2 List implementation + +=over 4 + +=item B + +=item B + +=item B + +=item B + +=item B + +=item B + +Note that, in both the above, $_ is in scope within the code block, as well as +being passed as $_[0]. As per CORE::map and CORE::grep, $_ is an alias to +the list value, so can be used to to modify the list, viz: + + use Moose::Autobox; + + my $foo = [1, 2, 3]; + $foo->map( sub {$_++} ); + print $foo->dump; + +yields + + $VAR1 = [ + 2, + 3, + 4 + ]; + +=item B + +=item B + +=back + +=head2 Junctions + +=over 4 + +=item B + +=item B + +=item B + +=item B + +=back + +=over 4 + +=item B + +=item B + +=item B + +=back + +=head1 BUGS + +All complex software has bugs lurking in it, and this module is no +exception. If you find a bug please either email me, or add the bug +to cpan-RT. + +=head1 AUTHOR + +Stevan Little Estevan@iinteractive.comE + +=head1 COPYRIGHT AND LICENSE + +Copyright 2006-2008 by Infinity Interactive, Inc. + +L + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself. + +=cut