File Coverage

blib/lib/HH/Unispool/Config/Entry/Filter.pm
Criterion Covered Total %
statement 77 90 85.5
branch 18 40 45.0
condition 9 24 37.5
subroutine 16 16 100.0
pod 7 7 100.0
total 127 177 71.7


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::Entry::Filter;
2              
3 4     4   810 use 5.006;
  4         13  
  4         149  
4 4     4   22 use base qw( HH::Unispool::Config::Entry );
  4         6  
  4         2345  
5 4     4   21 use strict;
  4         7  
  4         105  
6 4     4   19 use warnings;
  4         5  
  4         100  
7 4     4   19 use AutoLoader qw(AUTOLOAD);
  4         9  
  4         20  
8 4     4   129 use Error qw(:try);
  4         8  
  4         19  
9 4     4   1689 use HH::Unispool::Config::FilterType;
  4         6  
  4         596  
10              
11             # Used by _value_is_allowed
12             our %ALLOW_ISA = (
13             'type' => [ 'HH::Unispool::Config::FilterType' ],
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             'file' => [ '^.+$' ],
23             );
24              
25             # Used by _value_is_allowed
26             our %ALLOW_VALUE = (
27             );
28              
29             # Used by _initialize
30             our %DEFAULT_VALUE = (
31             'type' => HH::Unispool::Config::FilterType->new( { type => 'default'} ),
32             );
33              
34             # Package version
35             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
36              
37             1;
38              
39             __END__