File Coverage

blib/lib/HH/Unispool/Config/Entry/Device/0.pm
Criterion Covered Total %
statement 176 247 71.2
branch 66 110 60.0
condition 11 27 40.7
subroutine 32 32 100.0
pod 23 23 100.0
total 308 439 70.1


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::Entry::Device::0;
2              
3 6     6   945 use 5.006;
  6         22  
  6         272  
4 6     6   62 use base qw( HH::Unispool::Config::Entry::Device );
  6         15  
  6         3413  
5 6     6   37 use strict;
  6         13  
  6         190  
6 6     6   32 use warnings;
  6         12  
  6         177  
7 6     6   39 use AutoLoader qw(AUTOLOAD);
  6         16  
  6         38  
8 6     6   201 use Error qw(:try);
  6         14  
  6         39  
9 6     6   1574 use HH::Unispool::Config::ExecPri;
  6         14  
  6         1151  
10              
11             # Used by _value_is_allowed
12             our %ALLOW_ISA = (
13             'execution_priority' => [ 'HH::Unispool::Config::ExecPri' ],
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             'device_file' => [ '^.+$' ],
23             'device_password' => [ '^.*$' ],
24             'header_name' => [ '^.*$' ],
25             'trailer_name' => [ '^.*$' ],
26             );
27              
28             # Used by _value_is_allowed
29             our %ALLOW_VALUE = (
30             );
31              
32             # Used by _initialize
33             our %DEFAULT_VALUE = (
34             'execution_priority' => HH::Unispool::Config::ExecPri->new( { execution_priority => '' } ),
35             'initially_spooled' => 1,
36             'networkwide' => 1,
37             'save_printfile' => 0,
38             'unispool_control' => 0,
39             'unispool_header' => 0,
40             );
41              
42             # Package version
43             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
44              
45             1;
46              
47             __END__