File Coverage

MyGlobalSubs.pm
Criterion Covered Total %
statement 5 5 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 2 0.0
total 8 10 80.0


line stmt bran cond sub pod time code
1             package # Dear CPAN, please don't index this
2             MyGlobalSubs;
3 1     1   2062 use Devel::GlobalSub qw(test_a test_b);
  1         3  
  1         5  
4              
5             sub test_a {
6 4     4 0 4174 return 'test_a OK';
7             }
8              
9             sub test_b {
10 4     4 0 4344 return 'test_b OK';
11             }
12              
13             1;