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 3     3   12 use TestML::Base;
  3         6  
  3         20  
4             extends 'TestML::Library';
5              
6 3     3   23 no warnings 'redefine';
  3         6  
  3         732  
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;