lib/MooseX/AttributeHelpers/MethodProvider/List.pm

   1 package MooseX::AttributeHelpers::MethodProvider::List;
   2 use Moose::Role;
   3
   4 our $VERSION   = '0.12';
   5 our $AUTHORITY = 'cpan:STEVAN';
   6
   7 sub count : method {
   8     my ($attr, $reader, $writer) = @_;
   9     return sub {
  10         scalar @{$reader->($_[0])}
  11     };
  12 }
  13
  14 sub empty : method {
  15     my ($attr, $reader, $writer) = @_;
  16     return sub {
  17         scalar @{$reader->($_[0])} ? 1 : 0
  18     };
  19 }
  20
  21 sub find : method {
  22     my ($attr, $reader, $writer) = @_;
  23     return sub {
  24         my ($instance, $predicate) = @_;
  25         foreach my $val (@{$reader->($instance)}) {
  26             return $val if $predicate->($val);
  27         }
  28         return;
  29     };
  30 }
  31
  32 sub map : method {
  33     my ($attr, $reader, $writer) = @_;
  34     return sub {
  35         my ($instance, $f) = @_;
  36         CORE::map { $f->($_) } @{$reader->($instance)}
  37     };
  38 }
  39
  40 sub grep : method {
  41     my ($attr, $reader, $writer) = @_;
  42     return sub {
  43         my ($instance, $predicate) = @_;
  44         CORE::grep { $predicate->($_) } @{$reader->($instance)}
  45     };
  46 }
  47
  48 sub elements : method {
  49     my ($attr, $reader, $writer) = @_;
  50     return sub {
  51         my ($instance) = @_;
  52         @{$reader->($instance)}
  53     };
  54 }
  55
  56 sub join : method {
  57     my ($attr, $reader, $writer) = @_;
  58     return sub {
  59         my ($instance, $separator) = @_;
  60         join $separator, @{$reader->($instance)}
  61     };
  62 }
  63
  64 sub get : method {
  65     my ($attr, $reader, $writer) = @_;
  66     return sub {
  67         $reader->($_[0])->[$_[1]]
  68     };
  69 }
  70
  71 sub first : method {
  72     my ($attr, $reader, $writer) = @_;
  73     return sub {
  74         $reader->($_[0])->[0]
  75     };
  76 }
  77
  78 sub last : method {
  79     my ($attr, $reader, $writer) = @_;
  80     return sub {
  81         $reader->($_[0])->[-1]
  82     };
  83 }
  84
  85 1;
  86
  87 __END__
  88
  89 =pod
  90
  91 =head1 NAME
  92
  93 MooseX::AttributeHelpers::MethodProvider::List
  94
  95 =head1 DESCRIPTION
  96
  97 This is a role which provides the method generators for
  98 L<MooseX::AttributeHelpers::Collection::List>.
  99
 100 =head1 METHODS
 101
 102 =over 4
 103
 104 =item B<meta>
 105
 106 =back
 107
 108 =head1 PROVIDED METHODS
 109
 110 =over 4
 111
 112 =item B<count>
 113
 114 =item B<empty>
 115
 116 =item B<find>
 117
 118 =item B<grep>
 119
 120 =item B<map>
 121
 122 =item B<elements>
 123
 124 =item B<join>
 125
 126 =item B<get>
 127
 128 =item B<first>
 129
 130 =item B<last>
 131
 132 =back
 133
 134 =head1 BUGS
 135
 136 All complex software has bugs lurking in it, and this module is no
 137 exception. If you find a bug please either email me, or add the bug
 138 to cpan-RT.
 139
 140 =head1 AUTHOR
 141
 142 Stevan Little E<lt>stevan@iinteractive.comE<gt>
 143
 144 =head1 COPYRIGHT AND LICENSE
 145
 146 Copyright 2007-2008 by Infinity Interactive, Inc.
 147
 148 L<http://www.iinteractive.com>
 149
 150 This library is free software; you can redistribute it and/or modify
 151 it under the same terms as Perl itself.
 152
 153 =cut