File Coverage

blib/lib/InfoSys/FreeDB.pm
Criterion Covered Total %
statement 26 26 100.0
branch 2 4 50.0
condition 1 3 33.3
subroutine 8 8 100.0
pod 1 1 100.0
total 38 42 90.4


line stmt bran cond sub pod time code
1             package InfoSys::FreeDB;
2              
3 2     2   2993 use 5.006;
  2         7  
  2         81  
4 2     2   10 use strict;
  2         3  
  2         71  
5 2     2   10 use warnings;
  2         4  
  2         76  
6 2     2   1800 use AutoLoader qw(AUTOLOAD);
  2         3222  
  2         15  
7 2     2   74 use Error qw(:try);
  2         3  
  2         20  
8 2     2   2135 use Sys::Hostname;
  2         2647  
  2         180  
9              
10             # Package version
11             our ($VERSION) = '$Revision: 0.92 $' =~ /\$Revision:\s+([^\s]+)/;
12              
13             1;
14              
15             __END__