Replace CRLF to LF with all the files

[gitmo/Mouse.git] / t / 990_deprecated / 044-attribute-metaclass.t

diff --git a/t/990_deprecated/044-attribute-metaclass.t b/t/990_deprecated/044-attribute-metaclass.t
index 0701c93..8a3eb9f 100644 (file)
--- a/t/990_deprecated/044-attribute-metaclass.t
+++ b/t/990_deprecated/044-attribute-metaclass.t
@@ -31,14 +31,14 @@ do {
         return $attr;
     };
 
-    around 'canonicalize_args' => sub {\r
-        my ($next, $self, $name, %args) = @_;\r
-\r
-        %args = $next->($self, $name, %args);\r
-        $args{is}  = 'rw'               unless exists $args{is};\r
-\r
-        return %args;\r
-    };\r
+    around 'canonicalize_args' => sub {
+        my ($next, $self, $name, %args) = @_;
+
+        %args = $next->($self, $name, %args);
+        $args{is}  = 'rw'  unless exists $args{is};
+
+        return %args;
+    };
 
     package # hide me from search.cpan.org
         Mouse::Meta::Attribute::Custom::Number;
@@ -59,7 +59,7 @@ do {
 };
 
 can_ok 'Klass', 'add_number', 'number';
-my $k = Klass->new(i=>3);
+my $k = Klass->new(number => 3);
 $k->add_number(4);
 is $k->number, 7;