X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fmethod.t;h=733563542818ccb9d547f36cfa42a51da535aa5b;hb=7c4f125853686285fbcc4c04de8c78d7f0a4ab6f;hp=4e92af6af447308091bc1c72039911db48c283ab;hpb=73a404778d54e6c9ec260cb8cd5c30faf86d88c8;p=p5sagit%2FDevel-Declare.git

diff --git a/t/method.t b/t/method.t
index 4e92af6..7335635 100644
--- a/t/method.t
+++ b/t/method.t
@@ -91,16 +91,6 @@ use Devel::Declare ();
       shadow(sub (&) { shift });
     }
   }
-
-  sub inject_scope {
-    $^H |= 0x120000;
-    $^H{DD_METHODHANDLERS} = Scope::Guard->new(sub {
-      my $linestr = Devel::Declare::get_linestr;
-      my $offset = Devel::Declare::get_linestr_offset;
-      substr($linestr, $offset, 0) = ';';
-      Devel::Declare::set_linestr($linestr);
-    });
-  }
 }
 
 my ($test_method1, $test_method2, @test_list);
@@ -122,9 +112,7 @@ my ($test_method1, $test_method2, @test_list);
     return bless({ @_ }, $class);
   };
 
-  method foo (
-      $foo
-  ) {
+  method foo ($foo) {
     return (ref $self).': Foo: '.$foo;
   };