Add some tests

[gitmo/Mouse.git] / lib / Mouse / Meta / Method / Accessor.pm

diff --git a/lib/Mouse/Meta/Method/Accessor.pm b/lib/Mouse/Meta/Method/Accessor.pm
index 0fb563c..4d7e3a9 100755 (executable)
--- a/lib/Mouse/Meta/Method/Accessor.pm
+++ b/lib/Mouse/Meta/Method/Accessor.pm
@@ -171,22 +171,22 @@ sub _install_handles {
     foreach my $handle_name (keys %handles) {
         my $method_to_call = $handles{$handle_name};
 
-        my $code = sub {\r
-            my $instance = shift;\r
-            my $proxy    = $instance->$reader();\r
-\r
-            my $error = !defined($proxy)                ? ' is not defined'\r
-                      : ref($proxy) && !blessed($proxy) ? qq{ is not an object (got '$proxy')}\r
-                                                        : undef;\r
+        my $code = sub {
+            my $instance = shift;
+            my $proxy    = $instance->$reader();
+
+            my $error = !defined($proxy)                ? ' is not defined'
+                      : ref($proxy) && !blessed($proxy) ? qq{ is not an object (got '$proxy')}
+                                                        : undef;
             if ($error) {
-                $instance->meta->throw_error(\r
-                    "Cannot delegate $handle_name to $method_to_call because "\r
-                        . "the value of "\r
-                        . $attribute->name\r
+                $instance->meta->throw_error(
+                    "Cannot delegate $handle_name to $method_to_call because "
+                        . "the value of "
+                        . $attribute->name
                         . $error
-                 );\r
-            }\r
-            $proxy->$method_to_call(@_);\r
+                 );
+            }
+            $proxy->$method_to_call(@_);
         };
         $class->add_method($handle_name => $code);
     }