package MooseX::AttributeHelpers::MethodProvider::List;
use Moose::Role;
-our $VERSION = '0.12';
+our $VERSION = '0.12_01';
+$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
sub count : method {
};
}
+sub get : method {
+ my ($attr, $reader, $writer) = @_;
+ return sub {
+ $reader->($_[0])->[$_[1]]
+ };
+}
+
+sub first : method {
+ my ($attr, $reader, $writer) = @_;
+ return sub {
+ $reader->($_[0])->[0]
+ };
+}
+
+sub last : method {
+ my ($attr, $reader, $writer) = @_;
+ return sub {
+ $reader->($_[0])->[-1]
+ };
+}
+
1;
__END__
=item B<join>
+=item B<get>
+
+=item B<first>
+
+=item B<last>
+
=back
=head1 BUGS