File Coverage

blib/lib/HH/Unispool/Config/OS.pm
Criterion Covered Total %
statement 46 62 74.1
branch 12 30 40.0
condition 9 27 33.3
subroutine 11 11 100.0
pod 4 4 100.0
total 82 134 61.1


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::OS;
2              
3 10     10   245 use 5.006;
  10         35  
  10         414  
4 10     10   54 use strict;
  10         20  
  10         316  
5 10     10   51 use warnings;
  10         36  
  10         424  
6 10     10   56 use AutoLoader qw(AUTOLOAD);
  10         18  
  10         73  
7 10     10   325 use Error qw(:try);
  10         20  
  10         78  
8              
9             # Used by _value_is_allowed
10             our %ALLOW_ISA = (
11             );
12              
13             # Used by _value_is_allowed
14             our %ALLOW_REF = (
15             );
16              
17             # Used by _value_is_allowed
18             our %ALLOW_RX = (
19             );
20              
21             # Used by _value_is_allowed
22             our %ALLOW_VALUE = (
23             'os' => {
24             'AIX' => 1,
25             'DigUnix' => 1,
26             'HP-UX' => 1,
27             'LINUX' => 1,
28             'MPE' => 1,
29             'NTSERVER' => 1,
30             'SCO' => 1,
31             'SINIX' => 1,
32             'Solaris' => 1,
33             'ULTRIX' => 1,
34             'VMS' => 1,
35             },
36             );
37              
38             # Package version
39             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
40              
41             1;
42              
43             __END__