[Bast-commits] r4941 - Devel-Declare/1.000/trunk/t

rafl at dev.catalyst.perl.org rafl at dev.catalyst.perl.org
Sun Oct 19 08:50:01 BST 2008


Author: rafl
Date: 2008-10-19 08:50:00 +0100 (Sun, 19 Oct 2008)
New Revision: 4941

Modified:
   Devel-Declare/1.000/trunk/t/method.t
Log:
Remove unused inject_scope from method.t

Modified: Devel-Declare/1.000/trunk/t/method.t
===================================================================
--- Devel-Declare/1.000/trunk/t/method.t	2008-10-19 04:39:58 UTC (rev 4940)
+++ Devel-Declare/1.000/trunk/t/method.t	2008-10-19 07:50:00 UTC (rev 4941)
@@ -91,16 +91,6 @@
       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);




More information about the Bast-commits mailing list