File Coverage

inc/TestML/Library/Debug.pm
Criterion Covered Total %
statement 6 18 33.3
branch n/a
condition n/a
subroutine 2 6 33.3
pod n/a
total 8 24 33.3


line stmt bran cond sub pod time code
1             package TestML::Library::Debug;
2              
3 1     1   5 use TestML::Base;
  1         1  
  1         7  
4             extends 'TestML::Library';
5              
6 1     1   7 no warnings 'redefine';
  1         1  
  1         211  
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;