File Coverage

blib/lib/HH/Unispool/Config/File/Token/Numbered/Device/Group.pm
Criterion Covered Total %
statement 66 75 88.0
branch 16 40 40.0
condition 14 34 41.1
subroutine 14 14 100.0
pod 5 5 100.0
total 115 168 68.4


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::File::Token::Numbered::Device::Group;
2              
3 7     7   7228 use 5.006;
  7         22  
  7         293  
4 7     7   42 use base qw( HH::Unispool::Config::File::Token::Numbered );
  7         15  
  7         1395  
5 7     7   47 use strict;
  7         12  
  7         239  
6 7     7   38 use warnings;
  7         12  
  7         223  
7 7     7   36 use AutoLoader qw(AUTOLOAD);
  7         13  
  7         51  
8 7     7   241 use Error qw(:try);
  7         14  
  7         58  
9 7     7   1298 use HH::Unispool::Config::File::Token qw( :rx :frm );
  7         17  
  7         6331  
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             'member_device_name' => [ '^.+$' ],
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__