6 eval 'use B::Compiling';
8 $@ and plan 'skip_all' => $@
18 push @lines, PL_compiling->line;
20 my $offset = Devel::Declare::get_linestr_offset();
21 $offset += Devel::Declare::toke_move_past_token($offset);
22 my $stripped = Devel::Declare::toke_skipspace($offset);
23 my $linestr = Devel::Declare::get_linestr();
25 push @lines, PL_compiling->line;
33 Devel::Declare->setup_for(
35 { fun => { const => \&handle_fun } }
46 # Reset the line number back to what it actually is
48 is(@lines, 2, "2 line numbers recorded");
49 is $lines[0], 100, "fun starts on line 100";
50 is $lines[1], 101, "fun stops on line 101";
51 is $line, 102, "next statement on line 102";
52 is $line2, 103, "next statement on line 103";