File Coverage

blib/lib/HH/Unispool/Config/File/Token/Numbered/Network.pm
Criterion Covered Total %
statement 119 122 97.5
branch 52 76 68.4
condition 39 70 55.7
subroutine 25 25 100.0
pod 16 16 100.0
total 251 309 81.2


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::File::Token::Numbered::Network;
2              
3 10     10   8597 use 5.006;
  10         38  
  10         432  
4 10     10   56 use base qw( HH::Unispool::Config::File::Token::Numbered );
  10         28  
  10         1727  
5 10     10   57 use strict;
  10         21  
  10         351  
6 10     10   50 use warnings;
  10         37  
  10         338  
7 10     10   51 use AutoLoader qw(AUTOLOAD);
  10         19  
  10         116  
8 10     10   365 use Error qw(:try);
  10         21  
  10         82  
9 10     10   1759 use HH::Unispool::Config::File::Token qw( :rx :frm );
  10         25  
  10         9962  
10              
11             # Used by _value_is_allowed
12             our %ALLOW_ISA = (
13             'os' => [ 'HH::Unispool::Config::OS' ],
14             );
15              
16             # Used by _value_is_allowed
17             our %ALLOW_REF = (
18             );
19              
20             # Used by _value_is_allowed
21             our %ALLOW_RX = (
22             'remote_node_name' => [ '^.+$' ],
23             'server_tcp_port' => [ '^.*$' ],
24             'transfer_size' => [ '^\d*$' ],
25             'transfer_time_out' => [ '^\d*$' ],
26             );
27              
28             # Used by _value_is_allowed
29             our %ALLOW_VALUE = (
30             'protocol' => {
31             'LPD' => 1,
32             'PJL' => 1,
33             'TCP' => 1,
34             'XPP' => 1,
35             },
36             );
37              
38             # Package version
39             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
40              
41             1;
42              
43             __END__