File Coverage

blib/lib/HH/Unispool/Config/File/Token/Comment/NetDesc.pm
Criterion Covered Total %
statement 45 53 84.9
branch 9 28 32.1
condition 7 24 29.1
subroutine 11 11 100.0
pod 2 2 100.0
total 74 118 62.7


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::File::Token::Comment::NetDesc;
2              
3 14     14   223 use 5.006;
  14         47  
  14         560  
4 14     14   71 use base qw( HH::Unispool::Config::File::Token::Comment );
  14         26  
  14         6985  
5 14     14   84 use strict;
  14         29  
  14         491  
6 14     14   73 use warnings;
  14         29  
  14         420  
7 14     14   80 use AutoLoader qw(AUTOLOAD);
  14         21  
  14         88  
8 14     14   494 use Error qw(:try);
  14         29  
  14         89  
9 14     14   2382 use HH::Unispool::Config::File::Token qw( :rx :frm );
  14         31  
  14         13433  
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             'net_desc' => [ '^.+$' ],
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__