File Coverage

blib/lib/HH/Unispool/Config/File/Token/Unnumbered/Misc.pm
Criterion Covered Total %
statement 151 158 95.5
branch 46 98 46.9
condition 20 42 47.6
subroutine 33 33 100.0
pod 24 24 100.0
total 274 355 77.1


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::File::Token::Unnumbered::Misc;
2              
3 7     7   11732 use 5.006;
  7         25  
  7         308  
4 7     7   40 use base qw( HH::Unispool::Config::File::Token::Unnumbered );
  7         15  
  7         1422  
5 7     7   44 use strict;
  7         13  
  7         247  
6 7     7   36 use warnings;
  7         26  
  7         274  
7 7     7   48 use AutoLoader qw(AUTOLOAD);
  7         23  
  7         54  
8 7     7   253 use Error qw(:try);
  7         16  
  7         57  
9 7     7   1347 use HH::Unispool::Config::File::Token qw( :rx :frm );
  7         14  
  7         6967  
10              
11             # Used by _value_is_allowed
12             our %ALLOW_ISA = (
13             'date_format' => [ 'HH::Unispool::Config::DateFormat' ],
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             'default_printer' => [ '^.+$' ],
23             'local_system_name' => [ '^.+$' ],
24             'maximum_delay_time' => [ '^\d+$' ],
25             'maximum_print_file_space' => [ '^\d+$' ],
26             'maximum_save_file_space' => [ '^\d+$' ],
27             'save_groups' => [ '^\d*$' ],
28             'save_time_in_days' => [ '^\d+$' ],
29             'start_time_clean_job_hour' => [ '^\d+$' ],
30             'start_time_clean_job_minute' => [ '^\d+$' ],
31             );
32              
33             # Used by _value_is_allowed
34             our %ALLOW_VALUE = (
35             );
36              
37             # Used by _initialize
38             our %DEFAULT_VALUE = (
39             'clean_on_weekdays_only' => 0,
40             'maximum_delay_time' => 15,
41             'maximum_print_file_space' => 0,
42             'maximum_save_file_space' => 0,
43             'save_groups' => '',
44             'save_time_in_days' => 3,
45             'start_time_clean_job_hour' => 0,
46             'start_time_clean_job_minute' => 0,
47             );
48              
49             # Package version
50             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
51              
52             1;
53              
54             __END__