File Coverage

blib/lib/HH/Unispool/Config/File/Token/Comment/Scope.pm
Criterion Covered Total %
statement 51 61 83.6
branch 8 30 26.6
condition 3 26 11.5
subroutine 13 13 100.0
pod 4 4 100.0
total 79 134 58.9


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::File::Token::Comment::Scope;
2              
3 6     6   6158 use 5.006;
  6         20  
  6         240  
4 6     6   30 use base qw( HH::Unispool::Config::File::Token::Comment );
  6         12  
  6         1086  
5 6     6   33 use strict;
  6         10  
  6         202  
6 6     6   39 use warnings;
  6         16  
  6         281  
7 6     6   32 use AutoLoader qw(AUTOLOAD);
  6         10  
  6         45  
8 6     6   193 use Error qw(:try);
  6         12  
  6         43  
9 6     6   1001 use HH::Unispool::Config::File::Token qw( :rx :frm );
  6         13  
  6         5421  
10              
11             # Used by _value_is_allowed
12             our %ALLOW_ISA = (
13             'scope' => [ 'HH::Unispool::Config::Scope' ],
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             );
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__