File Coverage

blib/lib/HH/Unispool/Config/Entry/Device/3.pm
Criterion Covered Total %
statement 149 182 81.8
branch 42 74 56.7
condition 13 30 43.3
subroutine 24 24 100.0
pod 15 15 100.0
total 243 325 74.7


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::Entry::Device::3;
2              
3 5     5   799 use 5.006;
  5         17  
  5         234  
4 5     5   28 use base qw( HH::Unispool::Config::Entry::Device );
  5         13  
  5         537  
5 5     5   29 use strict;
  5         10  
  5         951  
6 5     5   34 use warnings;
  5         9  
  5         164  
7 5     5   28 use AutoLoader qw(AUTOLOAD);
  5         11  
  5         40  
8 5     5   205 use Error qw(:try);
  5         10  
  5         40  
9 5     5   861 use HH::Unispool::Config::ExecPri;
  5         11  
  5         851  
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             'member_device_name' => [ '^\w+$' ],
23             );
24              
25             # Used by _value_is_allowed
26             our %ALLOW_VALUE = (
27             );
28              
29             # Used by _initialize
30             our %DEFAULT_VALUE = (
31             'execution_priority' => HH::Unispool::Config::ExecPri->new( { execution_priority => '' } ),
32             'initially_spooled' => 1,
33             'networkwide' => 1,
34             );
35              
36             # Package version
37             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
38              
39             1;
40              
41             __END__