Port to B::Hooks::Parser.

[p5sagit/Devel-Declare.git] / lib / Devel / Declare.pm

diff --git a/lib/Devel/Declare.pm b/lib/Devel/Declare.pm
index 227b3ba..210b6a8 100644 (file)
--- a/lib/Devel/Declare.pm
+++ b/lib/Devel/Declare.pm
@@ -15,11 +15,20 @@ use vars qw(%declarators %declarator_handlers @ISA);
 use base qw(DynaLoader);
 use Scalar::Util 'set_prototype';
 use B::Hooks::OP::Check;
+use B::Hooks::Parser;
 
 bootstrap Devel::Declare;
 
 @ISA = ();
 
+# temporary backcompat
+{
+    for (qw/get_linestr get_linestr_offset set_linestr/) {
+        no strict 'refs';
+        *{ $_ } = B::Hooks::Parser->can($_);
+    }
+}
+
 sub import {
   my ($class, %args) = @_;
   my $target = caller;