perltidy all the AttributeHelpers code

[gitmo/Moose.git] / lib / Moose / AttributeHelpers / Trait / Number.pm

diff --git a/lib/Moose/AttributeHelpers/Trait/Number.pm b/lib/Moose/AttributeHelpers/Trait/Number.pm
index 1adb8f7..1119096 100644 (file)
--- a/lib/Moose/AttributeHelpers/Trait/Number.pm
+++ b/lib/Moose/AttributeHelpers/Trait/Number.pm
@@ -22,34 +22,34 @@ has 'method_constructors' => (
     default => sub {
         return +{
             set => sub {
-                my ($attr, $reader, $writer) = @_;
-                return sub { $writer->($_[0], $_[1]) };
+                my ( $attr, $reader, $writer ) = @_;
+                return sub { $writer->( $_[0], $_[1] ) };
             },
             add => sub {
-                my ($attr, $reader, $writer) = @_;
-                return sub { $writer->($_[0], $reader->($_[0]) + $_[1]) };
+                my ( $attr, $reader, $writer ) = @_;
+                return sub { $writer->( $_[0], $reader->( $_[0] ) + $_[1] ) };
             },
             sub => sub {
-                my ($attr, $reader, $writer) = @_;
-                return sub { $writer->($_[0], $reader->($_[0]) - $_[1]) };
+                my ( $attr, $reader, $writer ) = @_;
+                return sub { $writer->( $_[0], $reader->( $_[0] ) - $_[1] ) };
             },
             mul => sub {
-                my ($attr, $reader, $writer) = @_;
-                return sub { $writer->($_[0], $reader->($_[0]) * $_[1]) };
+                my ( $attr, $reader, $writer ) = @_;
+                return sub { $writer->( $_[0], $reader->( $_[0] ) * $_[1] ) };
             },
             div => sub {
-                my ($attr, $reader, $writer) = @_;
-                return sub { $writer->($_[0], $reader->($_[0]) / $_[1]) };
+                my ( $attr, $reader, $writer ) = @_;
+                return sub { $writer->( $_[0], $reader->( $_[0] ) / $_[1] ) };
             },
             mod => sub {
-                my ($attr, $reader, $writer) = @_;
-                return sub { $writer->($_[0], $reader->($_[0]) % $_[1]) };
+                my ( $attr, $reader, $writer ) = @_;
+                return sub { $writer->( $_[0], $reader->( $_[0] ) % $_[1] ) };
             },
             abs => sub {
-                my ($attr, $reader, $writer) = @_;
-                return sub { $writer->($_[0], abs($reader->($_[0])) ) };
+                my ( $attr, $reader, $writer ) = @_;
+                return sub { $writer->( $_[0], abs( $reader->( $_[0] ) ) ) };
             },
-        }
+        };
     }
 );