File Coverage

blib/lib/HH/Unispool/Config/File/Token/Numbered/System.pm
Criterion Covered Total %
statement 102 109 93.5
branch 36 62 58.0
condition 8 21 38.1
subroutine 26 26 100.0
pod 18 18 100.0
total 190 236 80.5


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::File::Token::Numbered::System;
2              
3 12     12   205 use 5.006;
  12         44  
  12         527  
4 12     12   67 use base qw( HH::Unispool::Config::File::Token::Numbered );
  12         34  
  12         15189  
5 12     12   76 use strict;
  12         28  
  12         543  
6 12     12   98 use warnings;
  12         27  
  12         412  
7 12     12   66 use AutoLoader qw(AUTOLOAD);
  12         19  
  12         72  
8 12     12   495 use Error qw(:try);
  12         24  
  12         73  
9              
10             # Used by _value_is_allowed
11             our %ALLOW_ISA = (
12             'execution_priority' => [ 'HH::Unispool::Config::ExecPri' ],
13             );
14              
15             # Used by _value_is_allowed
16             our %ALLOW_REF = (
17             );
18              
19             # Used by _value_is_allowed
20             our %ALLOW_RX = (
21             'acct' => [ '^.*$' ],
22             'apass' => [ '^.*$' ],
23             'block_delay' => [ '^\d*$' ],
24             'remote_system_name' => [ '^.+$' ],
25             'timeout' => [ '^\d*$' ],
26             'upass' => [ '^.*$' ],
27             );
28              
29             # Used by _value_is_allowed
30             our %ALLOW_VALUE = (
31             );
32              
33             # Package version
34             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
35              
36             1;
37              
38             __END__