perltidy all the AttributeHelpers code

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

diff --git a/lib/Moose/AttributeHelpers/MethodProvider/Bool.pm b/lib/Moose/AttributeHelpers/MethodProvider/Bool.pm
index 261cbc4..eff7d77 100644 (file)
--- a/lib/Moose/AttributeHelpers/MethodProvider/Bool.pm
+++ b/lib/Moose/AttributeHelpers/MethodProvider/Bool.pm
@@ -7,23 +7,23 @@ $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
 sub set : method {
-    my ($attr, $reader, $writer) = @_;
-    return sub { $writer->($_[0], 1) };
+    my ( $attr, $reader, $writer ) = @_;
+    return sub { $writer->( $_[0], 1 ) };
 }
 
 sub unset : method {
-    my ($attr, $reader, $writer) = @_;
-    return sub { $writer->($_[0], 0) };
+    my ( $attr, $reader, $writer ) = @_;
+    return sub { $writer->( $_[0], 0 ) };
 }
 
 sub toggle : method {
-    my ($attr, $reader, $writer) = @_;
-    return sub { $writer->($_[0], !$reader->($_[0])) };
+    my ( $attr, $reader, $writer ) = @_;
+    return sub { $writer->( $_[0], !$reader->( $_[0] ) ) };
 }
 
 sub not : method {
-    my ($attr, $reader, $writer) = @_;
-    return sub { !$reader->($_[0]) };
+    my ( $attr, $reader, $writer ) = @_;
+    return sub { !$reader->( $_[0] ) };
 }
 
 1;