2 package Moose::AttributeHelpers::MethodProvider::String;
6 $VERSION = eval $VERSION;
7 our $AUTHORITY = 'cpan:STEVAN';
10 my ($attr, $reader, $writer) = @_;
12 return sub { $writer->( $_[0], $reader->($_[0]) . $_[1] ) };
15 sub prepend : method {
16 my ($attr, $reader, $writer) = @_;
18 return sub { $writer->( $_[0], $_[1] . $reader->($_[0]) ) };
21 sub replace : method {
22 my ($attr, $reader, $writer) = @_;
25 my ( $self, $regex, $replacement ) = @_;
26 my $v = $reader->($_[0]);
28 if ( (ref($replacement)||'') eq 'CODE' ) {
29 $v =~ s/$regex/$replacement->()/e;
31 $v =~ s/$regex/$replacement/;
34 $writer->( $_[0], $v);
39 my ($attr, $reader, $writer) = @_;
40 return sub { $reader->($_[0]) =~ $_[1] };
44 my ($attr, $reader, $writer) = @_;
46 my $v = $reader->($_[0]);
48 $writer->( $_[0], $v);
53 my ($attr, $reader, $writer) = @_;
55 my $v = $reader->($_[0]);
57 $writer->( $_[0], $v);
62 my ($attr, $reader, $writer) = @_;
64 my $v = $reader->($_[0]);
66 $writer->( $_[0], $v);
71 my ($attr, $reader, $writer) = @_;
72 return sub { $writer->( $_[0], '' ) }
76 my ($attr, $reader, $writer) = @_;
79 my $v = $reader->($self);
81 my $offset = defined $_[0] ? shift : 0;
82 my $length = defined $_[0] ? shift : CORE::length($v);
83 my $replacement = defined $_[0] ? shift : undef;
86 if (defined $replacement) {
87 $ret = CORE::substr($v, $offset, $length, $replacement);
91 $ret = CORE::substr($v, $offset, $length);
106 Moose::AttributeHelpers::MethodProvider::String
110 This is a role which provides the method generators for
111 L<Moose::AttributeHelpers::String>.
121 =head1 PROVIDED METHODS
147 All complex software has bugs lurking in it, and this module is no
148 exception. If you find a bug please either email me, or add the bug
153 Stevan Little E<lt>stevan@iinteractive.comE<gt>
155 =head1 COPYRIGHT AND LICENSE
157 Copyright 2007-2009 by Infinity Interactive, Inc.
159 L<http://www.iinteractive.com>
161 This library is free software; you can redistribute it and/or modify
162 it under the same terms as Perl itself.