2 package Moose::Meta::Attribute::Native::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;
32 $v =~ s/$regex/$replacement/;
35 $writer->( $_[0], $v );
40 my ( $attr, $reader, $writer ) = @_;
41 return sub { $reader->( $_[0] ) =~ $_[1] };
45 my ( $attr, $reader, $writer ) = @_;
47 my $v = $reader->( $_[0] );
49 $writer->( $_[0], $v );
54 my ( $attr, $reader, $writer ) = @_;
56 my $v = $reader->( $_[0] );
58 $writer->( $_[0], $v );
63 my ( $attr, $reader, $writer ) = @_;
65 my $v = $reader->( $_[0] );
67 $writer->( $_[0], $v );
72 my ( $attr, $reader, $writer ) = @_;
73 return sub { $writer->( $_[0], '' ) }
77 my ($attr, $reader, $writer) = @_;
79 my $v = $reader->($_[0]);
80 return CORE::length($v);
85 my ( $attr, $reader, $writer ) = @_;
88 my $v = $reader->($self);
90 my $offset = defined $_[0] ? shift : 0;
91 my $length = defined $_[0] ? shift : CORE::length($v);
92 my $replacement = defined $_[0] ? shift : undef;
95 if ( defined $replacement ) {
96 $ret = CORE::substr( $v, $offset, $length, $replacement );
97 $writer->( $self, $v );
100 $ret = CORE::substr( $v, $offset, $length );
115 Moose::Meta::Attribute::Native::MethodProvider::String
119 This is a role which provides the method generators for
120 L<Moose::Meta::Attribute::Trait::Native::String>.
130 =head1 PROVIDED METHODS
158 All complex software has bugs lurking in it, and this module is no
159 exception. If you find a bug please either email me, or add the bug
164 Stevan Little E<lt>stevan@iinteractive.comE<gt>
166 =head1 COPYRIGHT AND LICENSE
168 Copyright 2007-2009 by Infinity Interactive, Inc.
170 L<http://www.iinteractive.com>
172 This library is free software; you can redistribute it and/or modify
173 it under the same terms as Perl itself.