package MooseX::AttributeHelpers::MethodProvider::List;
use Moose::Role;
-our $VERSION = '0.01';
+our $VERSION = '0.12';
our $AUTHORITY = 'cpan:STEVAN';
sub count : method {
};
}
+sub join : method {
+ my ($attr, $reader, $writer) = @_;
+ return sub {
+ my ($instance, $separator) = @_;
+ join $separator, @{$reader->($instance)}
+ };
+}
+
1;
__END__
=item B<elements>
+=item B<join>
+
=back
=head1 BUGS