File Coverage

blib/lib/HH/Unispool/Config/Entry/Numbered.pm
Criterion Covered Total %
statement 55 74 74.3
branch 15 38 39.4
condition 8 27 29.6
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::Numbered;
2              
3 7     7   104 use 5.006;
  7         24  
  7         270  
4 7     7   37 use base qw( HH::Unispool::Config::Entry );
  7         13  
  7         2431  
5 7     7   40 use strict;
  7         11  
  7         229  
6 7     7   38 use warnings;
  7         14  
  7         221  
7 7     7   39 use AutoLoader qw(AUTOLOAD);
  7         12  
  7         49  
8 7     7   320 use Error qw(:try);
  7         16  
  7         56  
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             'number' => [ '^\d*$' ],
21             );
22              
23             # Used by _value_is_allowed
24             our %ALLOW_VALUE = (
25             );
26              
27             # Used by _initialize
28             our %DEFAULT_VALUE = (
29             'diff_number' => 0,
30             );
31              
32             # Package version
33             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
34              
35             1;
36              
37             __END__