X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fmethod.t;h=e7299f647983eced7c6349575de6ddb364ff3d5f;hb=302fad19903e918c43fdbe5f38d5052251574247;hp=9833e30ab7df55c485368210f5e839314919bc75;hpb=4e0c5494567f8799cd16984299fee819f9d1d553;p=p5sagit%2FDevel-Declare.git

diff --git a/t/method.t b/t/method.t
index 9833e30..e7299f6 100644
--- a/t/method.t
+++ b/t/method.t
@@ -1,3 +1,5 @@
+use strict;
+use warnings;
 use Devel::Declare ();
 
 {
@@ -91,16 +93,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);
@@ -148,7 +140,7 @@ my ($test_method1, $test_method2, @test_list);
 
 }
 
-use Test::More 'no_plan';
+use Test::More 0.88;
 
 my $o = DeclareTest->new(attr => "value");
 
@@ -171,3 +163,5 @@ is($o->$test_method1('no', 'yes'), 'value, yes', 'anon method with @_ ok');
 is($o->$test_method2('this'), 'DeclareTest2, this', 'anon method with proto ok');
 
 is_deeply([ map { $_->() } @test_list ], [ 1, 2, 3, 4], 'binding ok');
+
+done_testing;