2 package MooseX::AttributeHelpers::MethodProvider::String;
6 our $AUTHORITY = 'cpan:STEVAN';
9 my ($attr, $reader, $writer) = @_;
11 return sub { $writer->( $_[0], $reader->($_[0]) . $_[1] ) };
14 sub prepend : method {
15 my ($attr, $reader, $writer) = @_;
17 return sub { $writer->( $_[0], $_[1] . $reader->($_[0]) ) };
20 sub replace : method {
21 my ($attr, $reader, $writer) = @_;
24 my ( $self, $regex, $replacement ) = @_;
25 my $v = $reader->($_[0]);
27 if ( (ref($replacement)||'') eq 'CODE' ) {
28 $v =~ s/$regex/$replacement->()/e;
30 $v =~ s/$regex/$replacement/;
33 $writer->( $_[0], $v);
38 my ($attr, $reader, $writer) = @_;
39 return sub { $reader->($_[0]) =~ $_[1] };
43 my ($attr, $reader, $writer) = @_;
45 my $v = $reader->($_[0]);
47 $writer->( $_[0], $v);
52 my ($attr, $reader, $writer) = @_;
54 my $v = $reader->($_[0]);
56 $writer->( $_[0], $v);
61 my ($attr, $reader, $writer) = @_;
63 my $v = $reader->($_[0]);
65 $writer->( $_[0], $v);
70 my ($attr, $reader, $writer ) = @_;
71 return sub { $writer->( $_[0], '' ) }
82 MooseX::AttributeHelpers::MethodProvider::String
86 This is a role which provides the method generators for
87 L<MooseX::AttributeHelpers::String>.
97 =head1 PROVIDED METHODS
121 All complex software has bugs lurking in it, and this module is no
122 exception. If you find a bug please either email me, or add the bug
127 Stevan Little E<lt>stevan@iinteractive.comE<gt>
129 =head1 COPYRIGHT AND LICENSE
131 Copyright 2007 by Infinity Interactive, Inc.
133 L<http://www.iinteractive.com>
135 This library is free software; you can redistribute it and/or modify
136 it under the same terms as Perl itself.