X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FAttributeHelpers%2FMethodProvider%2FCounter.pm;h=dc8a2efcc418fc3b5e6d7270ce2804b8cc377df1;hb=046c8b5ea633c64b5c076a4eb92a95bf892de3b4;hp=e99ebbccdfcc9aa10e3f84c291f8f58248c06519;hpb=792d7b13878e9585706b58055f288020a2babd2c;p=gitmo%2FMoose.git

diff --git a/lib/Moose/AttributeHelpers/MethodProvider/Counter.pm b/lib/Moose/AttributeHelpers/MethodProvider/Counter.pm
index e99ebbc..dc8a2ef 100644
--- a/lib/Moose/AttributeHelpers/MethodProvider/Counter.pm
+++ b/lib/Moose/AttributeHelpers/MethodProvider/Counter.pm
@@ -7,23 +7,29 @@ $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
 sub reset : method {
-    my ($attr, $reader, $writer) = @_;
-    return sub { $writer->($_[0], $attr->default($_[0])) };
+    my ( $attr, $reader, $writer ) = @_;
+    return sub { $writer->( $_[0], $attr->default( $_[0] ) ) };
 }
 
 sub set : method {
-    my ($attr, $reader, $writer, $value) = @_;
-    return sub { $writer->($_[0], $_[1]) };
+    my ( $attr, $reader, $writer, $value ) = @_;
+    return sub { $writer->( $_[0], $_[1] ) };
 }
 
 sub inc {
-    my ($attr, $reader, $writer) = @_;
-    return sub { $writer->($_[0], $reader->($_[0]) + (defined($_[1]) ? $_[1] : 1) ) };
+    my ( $attr, $reader, $writer ) = @_;
+    return sub {
+        $writer->( $_[0],
+            $reader->( $_[0] ) + ( defined( $_[1] ) ? $_[1] : 1 ) );
+    };
 }
 
 sub dec {
-    my ($attr, $reader, $writer) = @_;
-    return sub { $writer->($_[0], $reader->($_[0]) - (defined($_[1]) ? $_[1] : 1) ) };
+    my ( $attr, $reader, $writer ) = @_;
+    return sub {
+        $writer->( $_[0],
+            $reader->( $_[0] ) - ( defined( $_[1] ) ? $_[1] : 1 ) );
+    };
 }
 
 1;