File Coverage

blib/lib/HH/Unispool/Config/Entry/RemoteSystem.pm
Criterion Covered Total %
statement 62 76 81.5
branch 17 36 47.2
condition 9 24 37.5
subroutine 14 14 100.0
pod 5 5 100.0
total 107 155 69.0


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::Entry::RemoteSystem;
2              
3 6     6   95 use 5.006;
  6         19  
  6         239  
4 6     6   32 use base qw( HH::Unispool::Config::Entry::Numbered );
  6         14  
  6         3396  
5 6     6   38 use strict;
  6         13  
  6         182  
6 6     6   110 use warnings;
  6         13  
  6         170  
7 6     6   29 use AutoLoader qw(AUTOLOAD);
  6         12  
  6         34  
8 6     6   218 use Error qw(:try);
  6         11  
  6         38  
9 6     6   1562 use HH::Unispool::Config::ExecPri;
  6         15  
  6         1149  
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             'description' => [ '^.*$' ],
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( {
32             execution_priority => '',
33             } ),
34             );
35              
36             # Package version
37             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
38              
39             1;
40              
41             __END__