File Coverage

TestModule.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 18 100.0


line stmt bran cond sub pod time code
1             package BZS::TestModule;
2 2     2   23779 use strict;
  2         18  
  2         151  
3 2     2   13 use vars qw($VERSION);
  2         4  
  2         553  
4             $VERSION = do { my @r = (q$Revision: 0.02 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
5 2     2   14 use lib qw(.);
  2         10  
  2         89  
6 2     2   2700 use AutoLoader 'AUTOLOAD';
  2         4555  
  2         20  
7             sub prnt {
8 2     2   1365 print @_;
9             }
10             sub prnt_split;
11             1;