5 use Test::Requires 'B::Compiling';
14 push @lines, PL_compiling->line;
16 my $offset = Devel::Declare::get_linestr_offset();
17 $offset += Devel::Declare::toke_move_past_token($offset);
18 my $stripped = Devel::Declare::toke_skipspace($offset);
19 my $linestr = Devel::Declare::get_linestr();
21 push @lines, PL_compiling->line;
29 Devel::Declare->setup_for(
31 { fun => { const => \&handle_fun } }
42 # Reset the line number back to what it actually is
44 is(@lines, 2, "2 line numbers recorded");
45 is $lines[0], 100, "fun starts on line 100";
46 is $lines[1], 101, "fun stops on line 101";
47 is $line, 102, "next statement on line 102";
48 is $line2, 103, "next statement on line 103";