1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!perl
use lib 't/lib';
use VPIT::TestHelpers;
BEGIN {
load_or_skip_all("Devel::Declare", 0.006007, undef);
}
use Test::More tests => 1;
sub foo { }
sub foo_magic {
my($declarator, $offset) = @_;
$offset += Devel::Declare::toke_move_past_token($offset);
my $linestr = Devel::Declare::get_linestr();
substr $linestr, $offset, 0, "\n\n";
Devel::Declare::set_linestr($linestr);
}
BEGIN {
Devel::Declare->setup_for("main", { foo => { const => \&foo_magic } });
}
no indirect ":fatal";
sub bar {
my $x;
foo; $x->m;
}
ok 1;
|
