package MooseX::AttributeHelpers::MethodProvider::List;
use Moose::Role;
-our $VERSION = '0.01';
+our $VERSION = '0.12';
our $AUTHORITY = 'cpan:STEVAN';
sub count : method {
sub empty : method {
my ($attr, $reader, $writer) = @_;
return sub {
- scalar @{$reader->($_[0])} ? 1 : 0
+ scalar @{$reader->($_[0])} ? 1 : 0
};
}
};
}
+sub elements : method {
+ my ($attr, $reader, $writer) = @_;
+ return sub {
+ my ($instance) = @_;
+ @{$reader->($instance)}
+ };
+}
+
+sub join : method {
+ my ($attr, $reader, $writer) = @_;
+ return sub {
+ my ($instance, $separator) = @_;
+ join $separator, @{$reader->($instance)}
+ };
+}
+
1;
__END__
=item B<map>
+=item B<elements>
+
+=item B<join>
+
=back
=head1 BUGS
=head1 COPYRIGHT AND LICENSE
-Copyright 2007 by Infinity Interactive, Inc.
+Copyright 2007-2008 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>