package Moose::Autobox::List; use Moose::Role 'with', 'requires'; use Moose::Autobox; our $VERSION = '0.02'; with 'Moose::Autobox::Value'; requires 'head'; requires 'tail'; requires 'length'; requires 'join'; requires 'grep'; requires 'map'; requires 'sort'; requires 'reverse'; sub reduce { my ($array, $func) = @_; my $a = $array->values; my $acc = $a->head; $a->tail->map(sub { $acc = $func->($acc, $_) }); return $acc; } sub zip { my ($array, $other) = @_; ($array->length < $other->length ? $other : $array) ->keys ->map(sub { [ $array->at($_), $other->at($_) ] }); } 1; __END__ =pod =head1 NAME Moose::Autobox::List - the List role =head1 DESCRIPTION This is a role to describes a List interface. This is not meant to be any specific Perl type, but instead an interface that certain Perl types might implement. Currenly only L implements this. =head1 METHODS =over 4 =item B =item B =back =over 4 =item B =back =head1 REQUIRED METHODS =over 4 =item B =item B =item B =item B =item B =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