File Coverage

blib/lib/HH/Unispool/Config/Entry/RemoteSystem/7.pm
Criterion Covered Total %
statement 83 109 76.1
branch 27 60 45.0
condition 9 27 33.3
subroutine 15 15 100.0
pod 7 7 100.0
total 141 218 64.6


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::Entry::RemoteSystem::7;
2              
3 6     6   1041 use 5.006;
  6         23  
  6         266  
4 6     6   36 use base qw( HH::Unispool::Config::Entry::RemoteSystem );
  6         12  
  6         583  
5 6     6   36 use strict;
  6         10  
  6         211  
6 6     6   37 use warnings;
  6         13  
  6         208  
7 6     6   34 use AutoLoader qw(AUTOLOAD);
  6         13  
  6         45  
8 6     6   191 use Error qw(:try);
  6         14  
  6         48  
9              
10             # Used by _value_is_allowed
11             our %ALLOW_ISA = (
12             );
13              
14             # Used by _value_is_allowed
15             our %ALLOW_REF = (
16             );
17              
18             # Used by _value_is_allowed
19             our %ALLOW_RX = (
20             'block_delay' => [ '^\d*$' ],
21             );
22              
23             # Used by _value_is_allowed
24             our %ALLOW_VALUE = (
25             );
26              
27             # Used by _initialize
28             our %DEFAULT_VALUE = (
29             'block_delay' => 0,
30             'initially_open' => 1,
31             );
32              
33             # Package version
34             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
35              
36             1;
37              
38             __END__