X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F001_mouse%2F044-attribute-metaclass.t;h=f31e89de37d4a8420b59ea75fae555971ec53d41;hp=4c0c38d32fa864cc6130674bf4c70973fc54cd2d;hb=346a3ab8a10ac61eae8021ccfd068d80ccccd56a;hpb=267711f78bd79835875f805447d3ab802a18f0c4

diff --git a/t/001_mouse/044-attribute-metaclass.t b/t/001_mouse/044-attribute-metaclass.t
index 4c0c38d..f31e89d 100644
--- a/t/001_mouse/044-attribute-metaclass.t
+++ b/t/001_mouse/044-attribute-metaclass.t
@@ -203,48 +203,48 @@ do {
 
     sub helper_type { 'Num' }
 
-    has 'method_constructors' => (
-        is      => 'ro',
-        isa     => 'HashRef',
-        lazy    => 1,
-        default => sub {
-            return +{
-                set => sub {
-                    my ( $attr, $reader, $writer ) = @_;
-                    return sub { $writer->( $_[0], $_[1] ) };
+    has 'method_constructors' => (
+        is      => 'ro',
+        isa     => 'HashRef',
+        lazy    => 1,
+        default => sub {
+            return +{
+                set => sub {
+                    my ( $attr, $reader, $writer ) = @_;
+                    return sub { $writer->( $_[0], $_[1] ) };
+                },
+                get => sub {
+                    my ( $attr, $reader, $writer ) = @_;
+                    return sub { $reader->( $_[0] ) };
+                },
+                add => sub {
+                    my ( $attr, $reader, $writer ) = @_;
+                    return sub { $writer->( $_[0], $reader->( $_[0] ) + $_[1] ) };
                 },
-                get => sub {
-                    my ( $attr, $reader, $writer ) = @_;
-                    return sub { $reader->( $_[0] ) };
+                sub => sub {
+                    my ( $attr, $reader, $writer ) = @_;
+                    return sub { $writer->( $_[0], $reader->( $_[0] ) - $_[1] ) };
                 },
-                add => sub {
-                    my ( $attr, $reader, $writer ) = @_;
-                    return sub { $writer->( $_[0], $reader->( $_[0] ) + $_[1] ) };
-                },
-                sub => sub {
-                    my ( $attr, $reader, $writer ) = @_;
-                    return sub { $writer->( $_[0], $reader->( $_[0] ) - $_[1] ) };
-                },
-                mul => sub {
-                    my ( $attr, $reader, $writer ) = @_;
-                    return sub { $writer->( $_[0], $reader->( $_[0] ) * $_[1] ) };
-                },
-                div => sub {
-                    my ( $attr, $reader, $writer ) = @_;
-                    return sub { $writer->( $_[0], $reader->( $_[0] ) / $_[1] ) };
-                },
-                mod => sub {
-                    my ( $attr, $reader, $writer ) = @_;
-                    return sub { $writer->( $_[0], $reader->( $_[0] ) % $_[1] ) };
-                },
-                abs => sub {
-                    my ( $attr, $reader, $writer ) = @_;
-                    return sub { $writer->( $_[0], abs( $reader->( $_[0] ) ) ) };
-                },
-            };
-        }
-    );
-
+                mul => sub {
+                    my ( $attr, $reader, $writer ) = @_;
+                    return sub { $writer->( $_[0], $reader->( $_[0] ) * $_[1] ) };
+                },
+                div => sub {
+                    my ( $attr, $reader, $writer ) = @_;
+                    return sub { $writer->( $_[0], $reader->( $_[0] ) / $_[1] ) };
+                },
+                mod => sub {
+                    my ( $attr, $reader, $writer ) = @_;
+                    return sub { $writer->( $_[0], $reader->( $_[0] ) % $_[1] ) };
+                },
+                abs => sub {
+                    my ( $attr, $reader, $writer ) = @_;
+                    return sub { $writer->( $_[0], abs( $reader->( $_[0] ) ) ) };
+                },
+            };
+        }
+    );
+
 
     package MouseX::AttributeHelpers::Number;
     use Mouse;