package Moose::Autobox::List; # ABSTRACT: the List role use Moose::Role 'with', 'requires'; use Moose::Autobox; use namespace::autoclean; our $VERSION = '0.16'; 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 =encoding UTF-8 =head1 NAME Moose::Autobox::List - the List role =head1 VERSION version 0.16 =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. Currently only L implements this. =head1 METHODS =over 4 =item C =item C =back =over 4 =item C =back =head1 REQUIRED METHODS =over 4 =item C =item C =item C =item C =item C =item C =item C =item C =back =head1 SUPPORT Bugs may be submitted through L (or L). There is also a mailing list available for users of this distribution, at L. There is also an irc channel available for users of this distribution, at L on C|irc://irc.perl.org/#moose>. =head1 AUTHOR Stevan Little =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2006 by Infinity Interactive, Inc. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut