Merge branch 'master' into attribute_helpers

[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 df2662c..1119096 100644 (file)
--- a/lib/Moose/AttributeHelpers/Trait/Number.pm
+++ b/lib/Moose/AttributeHelpers/Trait/Number.pm
@@ -1,7 +1,7 @@
 package Moose::AttributeHelpers::Trait::Number;
 use Moose::Role;
 
-our $VERSION   = '0.83';
+our $VERSION   = '0.84';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
@@ -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] ) ) ) };
             },
-        }
+        };
     }
 );
 
@@ -79,7 +79,7 @@ Moose::AttributeHelpers::Number
       is        => 'ro',
       isa       => 'Int',
       default   => sub { 5 },
-      provides  => {
+      handles  => {
           set => 'set',
           add => 'add',
           sub => 'sub',