File Coverage

blib/lib/HH/Unispool/Config/File/Token/Comment/Head.pm
Criterion Covered Total %
statement 62 70 88.5
branch 13 36 36.1
condition 10 28 35.7
subroutine 15 15 100.0
pod 6 6 100.0
total 106 155 68.3


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::File::Token::Comment::Head;
2              
3 6     6   7901 use 5.006;
  6         20  
  6         250  
4 6     6   30 use base qw( HH::Unispool::Config::File::Token::Comment );
  6         12  
  6         4143  
5 6     6   36 use strict;
  6         11  
  6         160  
6 6     6   29 use warnings;
  6         11  
  6         158  
7 6     6   29 use AutoLoader qw(AUTOLOAD);
  6         12  
  6         33  
8 6     6   227 use Error qw(:try);
  6         13  
  6         37  
9 6     6   863 use HH::Unispool::Config::File::Token qw( :rx :frm );
  6         13  
  6         5566  
10              
11             # Used by _value_is_allowed
12             our %ALLOW_ISA = (
13             );
14              
15             # Used by _value_is_allowed
16             our %ALLOW_REF = (
17             );
18              
19             # Used by _value_is_allowed
20             our %ALLOW_RX = (
21             'host' => [ '^.+$' ],
22             'version' => [ '^.+$' ],
23             );
24              
25             # Used by _value_is_allowed
26             our %ALLOW_VALUE = (
27             );
28              
29             # Package version
30             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
31              
32             1;
33              
34             __END__