projects
/
gitmo/MooseX-AttributeHelpers.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Add a "join" provided method to lists (I do have a use case, shaddap!)
[gitmo/MooseX-AttributeHelpers.git]
/
lib
/
MooseX
/
AttributeHelpers
/
MethodProvider
/
List.pm
diff --git
a/lib/MooseX/AttributeHelpers/MethodProvider/List.pm
b/lib/MooseX/AttributeHelpers/MethodProvider/List.pm
index
82a1274
..
c3ffff3
100644
(file)
--- a/
lib/MooseX/AttributeHelpers/MethodProvider/List.pm
+++ b/
lib/MooseX/AttributeHelpers/MethodProvider/List.pm
@@
-53,6
+53,14
@@
sub elements : method {
};
}
+sub join : method {
+ my ($attr, $reader, $writer) = @_;
+ return sub {
+ my ($instance, $separator) = @_;
+ join $separator, @{$reader->($instance)}
+ };
+}
+
1;
__END__
@@
-92,6
+100,8
@@
L<MooseX::AttributeHelpers::Collection::List>.
=item B<elements>
+=item B<join>
+
=back
=head1 BUGS