perltidy all the AttributeHelpers code

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

diff --git a/lib/Moose/AttributeHelpers/MethodProvider/Counter.pm b/lib/Moose/AttributeHelpers/MethodProvider/Counter.pm
index e99ebbc..dc8a2ef 100644 (file)
--- 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;