File Coverage

blib/lib/HH/Unispool/Config/File/Token/Numbered/Device.pm
Criterion Covered Total %
statement 146 157 92.9
branch 61 92 66.3
condition 8 21 38.1
subroutine 38 38 100.0
pod 30 30 100.0
total 283 338 83.7


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::File::Token::Numbered::Device;
2              
3 16     16   269 use 5.006;
  16         54  
  16         828  
4 16     16   83 use base qw( HH::Unispool::Config::File::Token::Numbered );
  16         33  
  16         7155  
5 16     16   94 use strict;
  16         28  
  16         528  
6 16     16   83 use warnings;
  16         27  
  16         484  
7 16     16   87 use AutoLoader qw(AUTOLOAD);
  16         442  
  16         102  
8 16     16   547 use Error qw(:try);
  16         30  
  16         113  
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             'block_delay' => [ '^\d*$' ],
22             'buffer_size' => [ '^\d*$' ],
23             'connect_retry' => [ '^\d*$' ],
24             'device_name' => [ '^.+$' ],
25             'device_password' => [ '^.*$' ],
26             'page_length' => [ '^\d*$' ],
27             'page_width' => [ '^\d*$' ],
28             'remote_device_name' => [ '^.*$' ],
29             'remote_system_name' => [ '^.*$' ],
30             );
31              
32             # Used by _value_is_allowed
33             our %ALLOW_VALUE = (
34             );
35              
36             # Package version
37             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
38              
39             1;
40              
41             __END__