Replace CRLF to LF with all the files

[gitmo/Mouse.git] / t / 001_mouse / 044-attribute-metaclass.t

diff --git a/t/001_mouse/044-attribute-metaclass.t b/t/001_mouse/044-attribute-metaclass.t
index 4c0c38d..f31e89d 100644 (file)
--- 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' => (\r
-        is      => 'ro',\r
-        isa     => 'HashRef',\r
-        lazy    => 1,\r
-        default => sub {\r
-            return +{\r
-                set => sub {\r
-                    my ( $attr, $reader, $writer ) = @_;\r
-                    return sub { $writer->( $_[0], $_[1] ) };\r
+    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 {\r
-                    my ( $attr, $reader, $writer ) = @_;\r
-                    return sub { $reader->( $_[0] ) };\r
+                sub => sub {
+                    my ( $attr, $reader, $writer ) = @_;
+                    return sub { $writer->( $_[0], $reader->( $_[0] ) - $_[1] ) };
                 },
-                add => sub {\r
-                    my ( $attr, $reader, $writer ) = @_;\r
-                    return sub { $writer->( $_[0], $reader->( $_[0] ) + $_[1] ) };\r
-                },\r
-                sub => sub {\r
-                    my ( $attr, $reader, $writer ) = @_;\r
-                    return sub { $writer->( $_[0], $reader->( $_[0] ) - $_[1] ) };\r
-                },\r
-                mul => sub {\r
-                    my ( $attr, $reader, $writer ) = @_;\r
-                    return sub { $writer->( $_[0], $reader->( $_[0] ) * $_[1] ) };\r
-                },\r
-                div => sub {\r
-                    my ( $attr, $reader, $writer ) = @_;\r
-                    return sub { $writer->( $_[0], $reader->( $_[0] ) / $_[1] ) };\r
-                },\r
-                mod => sub {\r
-                    my ( $attr, $reader, $writer ) = @_;\r
-                    return sub { $writer->( $_[0], $reader->( $_[0] ) % $_[1] ) };\r
-                },\r
-                abs => sub {\r
-                    my ( $attr, $reader, $writer ) = @_;\r
-                    return sub { $writer->( $_[0], abs( $reader->( $_[0] ) ) ) };\r
-                },\r
-            };\r
-        }\r
-    );\r
-\r
+                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;