line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package TestML::Library::Debug; |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
6
|
use TestML::Base; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
8
|
|
4
|
|
|
|
|
|
|
extends 'TestML::Library'; |
5
|
|
|
|
|
|
|
|
6
|
1
|
|
|
1
|
|
5
|
no warnings 'redefine'; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
223
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
sub WWW { |
9
|
0
|
|
|
0
|
|
|
require XXX; |
10
|
0
|
|
|
|
|
|
local $XXX::DumpModule = $TestML::DumpModule; |
11
|
0
|
|
|
|
|
|
XXX::WWW(shift->value); |
12
|
|
|
|
|
|
|
} |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
sub XXX { |
15
|
0
|
|
|
0
|
|
|
require XXX; |
16
|
0
|
|
|
|
|
|
local $XXX::DumpModule = $TestML::DumpModule; |
17
|
0
|
|
|
|
|
|
XXX::XXX(shift->value); |
18
|
|
|
|
|
|
|
} |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
sub YYY { |
21
|
0
|
|
|
0
|
|
|
require XXX; |
22
|
0
|
|
|
|
|
|
local $XXX::DumpModule = $TestML::DumpModule; |
23
|
0
|
|
|
|
|
|
XXX::YYY(shift->value); |
24
|
|
|
|
|
|
|
} |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
sub ZZZ { |
27
|
0
|
|
|
0
|
|
|
require XXX; |
28
|
0
|
|
|
|
|
|
local $XXX::DumpModule = $TestML::DumpModule; |
29
|
0
|
|
|
|
|
|
XXX::ZZZ(shift->value); |
30
|
|
|
|
|
|
|
} |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
1; |