File Coverage

blib/lib/HH/Unispool/Config/Entry/Device.pm
Criterion Covered Total %
statement 57 80 71.2
branch 15 38 39.4
condition 6 21 28.5
subroutine 13 13 100.0
pod 5 5 100.0
total 96 157 61.1


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::Entry::Device;
2              
3 6     6   92 use 5.006;
  6         18  
  6         227  
4 6     6   31 use base qw( HH::Unispool::Config::Entry::Numbered );
  6         11  
  6         1530  
5 6     6   37 use strict;
  6         14  
  6         204  
6 6     6   34 use warnings;
  6         13  
  6         223  
7 6     6   34 use AutoLoader qw(AUTOLOAD);
  6         13  
  6         63  
8 6     6   220 use Error qw(:try);
  6         13  
  6         46  
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             'description' => [ '^.*$' ],
21             'filter_name' => [ '^.*$' ],
22             );
23              
24             # Used by _value_is_allowed
25             our %ALLOW_VALUE = (
26             );
27              
28             # Package version
29             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
30              
31             1;
32              
33             __END__