sync version # to 0.85

[gitmo/Moose.git] / lib / Moose / AttributeHelpers / MethodProvider / String.pm

diff --git a/lib/Moose/AttributeHelpers/MethodProvider/String.pm b/lib/Moose/AttributeHelpers/MethodProvider/String.pm
index a99bf70..655ad65 100644 (file)
--- a/lib/Moose/AttributeHelpers/MethodProvider/String.pm
+++ b/lib/Moose/AttributeHelpers/MethodProvider/String.pm
@@ -2,93 +2,94 @@
 package Moose::AttributeHelpers::MethodProvider::String;
 use Moose::Role;
 
-our $VERSION   = '0.83';
+our $VERSION   = '0.85';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
 sub append : method {
-    my ($attr, $reader, $writer) = @_;
+    my ( $attr, $reader, $writer ) = @_;
 
-    return sub { $writer->( $_[0],  $reader->($_[0]) . $_[1] ) };
+    return sub { $writer->( $_[0], $reader->( $_[0] ) . $_[1] ) };
 }
 
 sub prepend : method {
-    my ($attr, $reader, $writer) = @_;
+    my ( $attr, $reader, $writer ) = @_;
 
-    return sub { $writer->( $_[0],  $_[1] . $reader->($_[0]) ) };
+    return sub { $writer->( $_[0], $_[1] . $reader->( $_[0] ) ) };
 }
 
 sub replace : method {
-    my ($attr, $reader, $writer) = @_;
+    my ( $attr, $reader, $writer ) = @_;
 
     return sub {
         my ( $self, $regex, $replacement ) = @_;
-        my $v = $reader->($_[0]);
+        my $v = $reader->( $_[0] );
 
-        if ( (ref($replacement)||'') eq 'CODE' ) {
+        if ( ( ref($replacement) || '' ) eq 'CODE' ) {
             $v =~ s/$regex/$replacement->()/e;
-        } else {
+        }
+        else {
             $v =~ s/$regex/$replacement/;
         }
 
-        $writer->( $_[0], $v);
+        $writer->( $_[0], $v );
     };
 }
 
 sub match : method {
-    my ($attr, $reader, $writer) = @_;
-    return sub { $reader->($_[0]) =~ $_[1] };
+    my ( $attr, $reader, $writer ) = @_;
+    return sub { $reader->( $_[0] ) =~ $_[1] };
 }
 
 sub chop : method {
-    my ($attr, $reader, $writer) = @_;
+    my ( $attr, $reader, $writer ) = @_;
     return sub {
-        my $v = $reader->($_[0]);
+        my $v = $reader->( $_[0] );
         CORE::chop($v);
-        $writer->( $_[0], $v);
+        $writer->( $_[0], $v );
     };
 }
 
 sub chomp : method {
-    my ($attr, $reader, $writer) = @_;
+    my ( $attr, $reader, $writer ) = @_;
     return sub {
-        my $v = $reader->($_[0]);
+        my $v = $reader->( $_[0] );
         chomp($v);
-        $writer->( $_[0], $v);
+        $writer->( $_[0], $v );
     };
 }
 
 sub inc : method {
-    my ($attr, $reader, $writer) = @_;
+    my ( $attr, $reader, $writer ) = @_;
     return sub {
-        my $v = $reader->($_[0]);
+        my $v = $reader->( $_[0] );
         $v++;
-        $writer->( $_[0], $v);
+        $writer->( $_[0], $v );
     };
 }
 
 sub clear : method {
-    my ($attr, $reader, $writer) = @_;
+    my ( $attr, $reader, $writer ) = @_;
     return sub { $writer->( $_[0], '' ) }
 }
 
 sub substr : method {
-    my ($attr, $reader, $writer) = @_;
+    my ( $attr, $reader, $writer ) = @_;
     return sub {
         my $self = shift;
-        my $v = $reader->($self);
+        my $v    = $reader->($self);
 
         my $offset      = defined $_[0] ? shift : 0;
         my $length      = defined $_[0] ? shift : CORE::length($v);
         my $replacement = defined $_[0] ? shift : undef;
 
         my $ret;
-        if (defined $replacement) {
-            $ret = CORE::substr($v, $offset, $length, $replacement);
-            $writer->($self, $v);
+        if ( defined $replacement ) {
+            $ret = CORE::substr( $v, $offset, $length, $replacement );
+            $writer->( $self, $v );
         }
         else {
-            $ret = CORE::substr($v, $offset, $length);
+            $ret = CORE::substr( $v, $offset, $length );
         }
 
         return $ret;