1 package Moose::Meta::Attribute::Native::MethodProvider::String;
5 $VERSION = eval $VERSION;
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;
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) = @_;
78 my $v = $reader->($_[0]);
79 return CORE::length($v);
84 my ( $attr, $reader, $writer ) = @_;
87 my $v = $reader->($self);
89 my $offset = defined $_[0] ? shift : 0;
90 my $length = defined $_[0] ? shift : CORE::length($v);
91 my $replacement = defined $_[0] ? shift : undef;
94 if ( defined $replacement ) {
95 $ret = CORE::substr( $v, $offset, $length, $replacement );
96 $writer->( $self, $v );
99 $ret = CORE::substr( $v, $offset, $length );
114 Moose::Meta::Attribute::Native::MethodProvider::String
118 This is a role which provides the method generators for
119 L<Moose::Meta::Attribute::Trait::Native::String>. Please check there for
120 documentation on what methods are provided.
132 All complex software has bugs lurking in it, and this module is no
133 exception. If you find a bug please either email me, or add the bug
138 Stevan Little E<lt>stevan@iinteractive.comE<gt>
140 =head1 COPYRIGHT AND LICENSE
142 Copyright 2007-2009 by Infinity Interactive, Inc.
144 L<http://www.iinteractive.com>
146 This library is free software; you can redistribute it and/or modify
147 it under the same terms as Perl itself.