File Coverage

blib/lib/HH/Unispool/Config/Entry/Device/5.pm
Criterion Covered Total %
statement 111 147 75.5
branch 32 66 48.4
condition 9 27 33.3
subroutine 19 19 100.0
pod 11 11 100.0
total 182 270 67.4


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::Entry::Device::5;
2              
3 6     6   807 use 5.006;
  6         23  
  6         277  
4 6     6   34 use base qw( HH::Unispool::Config::Entry::Device );
  6         12  
  6         1113  
5 6     6   34 use strict;
  6         12  
  6         215  
6 6     6   1284 use warnings;
  6         12  
  6         210  
7 6     6   31 use AutoLoader qw(AUTOLOAD);
  6         12  
  6         48  
8 6     6   232 use Error qw(:try);
  6         14  
  6         47  
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             'header_name' => [ '^.*$' ],
21             'remote_device_name' => [ '^.*$' ],
22             'remote_system_name' => [ '^.*$' ],
23             'trailer_name' => [ '^.*$' ],
24             );
25              
26             # Used by _value_is_allowed
27             our %ALLOW_VALUE = (
28             );
29              
30             # Package version
31             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
32              
33             1;
34              
35             __END__