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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
#!/usr/bin/perl
use v5.14;
use warnings;
use Test2::V0;
use Devel::MAT::Dumper;
use Devel::MAT;
my $DUMPFILE = __FILE__ =~ s/\.t/\.pmat/r;
my $inner_l0 = __LINE__+1;
sub inner {
Devel::MAT::Dumper::dump( $DUMPFILE ) # l0 + 1
}
my $outer_l0 = __LINE__+1;
sub outer {
eval { # l0 + 1
inner( "C", "D" ) # l0 + 2
};
}
my $anon_l0 = __LINE__+1;
my $cv = sub {
map { eval 'outer( "A", "B" );'; } "one"; # l0 + 1
};
$cv->(); # l0 + 3
END { unlink $DUMPFILE; }
my $pmat = Devel::MAT->load( $DUMPFILE );
my $df = $pmat->dumpfile;
my @ctxts = $df->contexts;
ok( scalar @ctxts, 'Found some call contexts' );
my ( $cinner, $ctry, $couter, $ceval, $canon ) = @ctxts;
{
is( $cinner->type, "SUB", '$cinner type' );
is( $cinner->file, __FILE__, '$cinner file' );
is( $cinner->line, $outer_l0 + 2, '$cinner line' );
is( $cinner->cv->symname, '&main::inner', '$cinner CV name' );
is( $cinner->depth, 1, '$cinner depth' );
is( $cinner->olddepth, 0, '$cinner olddepth' );
is( [ map { $_->pv } $cinner->args->elems ],
[qw( C D )],
'$cinner args' );
}
{
is( $ctry->type, "TRY", '$ctry type' );
is( $ctry->file, __FILE__, '$ctry file' );
is( $ctry->line, $outer_l0 + 1, '$ctry line' );
}
{
is( $couter->type, "SUB", '$couter type' );
like( $couter->file, qr/^\(eval \d+\)/, '$couter file' );
is( $couter->line, 1, '$couter line' );
is( $couter->cv->symname, '&main::outer', '$couter CV name' );
is( [ map { $_->pv } $couter->args->elems ],
[qw( A B )],
'$couter args' );
}
{
is( $ceval->type, "EVAL", '$ceval type' );
is( $ceval->file, __FILE__, '$ceval file' );
is( $ceval->line, $anon_l0 + 1, '$ceval line' );
like( $ceval->code->pv, qr/^outer\( "A", "B" \);/, '$ceval code PV' );
}
{
is( $canon->type, "SUB", '$canon type' );
is( $canon->file, __FILE__, '$canon file' );
is( $canon->line, $anon_l0 + 3, '$canon line' );
is( $canon->cv->symname, "&main::__ANON__", '$canon CV name' );
}
done_testing;
|
