File Coverage

blib/lib/HH/Unispool/Config/Entry/RemoteSystem/3.pm
Criterion Covered Total %
statement 136 193 70.4
branch 53 106 50.0
condition 9 27 33.3
subroutine 25 25 100.0
pod 17 17 100.0
total 240 368 65.2


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::Entry::RemoteSystem::3;
2              
3 6     6   1179 use 5.006;
  6         23  
  6         263  
4 6     6   33 use base qw( HH::Unispool::Config::Entry::RemoteSystem );
  6         16  
  6         3613  
5 6     6   36 use strict;
  6         14  
  6         181  
6 6     6   31 use warnings;
  6         12  
  6         194  
7 6     6   41 use AutoLoader qw(AUTOLOAD);
  6         16  
  6         36  
8 6     6   204 use Error qw(:try);
  6         12  
  6         41  
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             'acct' => [ '^.*$' ],
21             'apass' => [ '^.*$' ],
22             'remote_node_name' => [ '^[\w\.]+$' ],
23             'timeout' => [ '^\d*$' ],
24             'upass' => [ '^.*$' ],
25             );
26              
27             # Used by _value_is_allowed
28             our %ALLOW_VALUE = (
29             );
30              
31             # Used by _initialize
32             our %DEFAULT_VALUE = (
33             'high_priority_login' => 0,
34             'timeout' => 180,
35             );
36              
37             # Package version
38             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
39              
40             1;
41              
42             __END__