File Coverage

blib/lib/HH/Unispool/Config/File/Token/Numbered/Device/P.pm
Criterion Covered Total %
statement 53 61 86.8
branch 10 30 33.3
condition 9 28 32.1
subroutine 13 13 100.0
pod 4 4 100.0
total 89 136 65.4


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::File::Token::Numbered::Device::P;
2              
3 9     9   6513 use 5.006;
  9         30  
  9         385  
4 9     9   50 use base qw( HH::Unispool::Config::File::Token::Numbered );
  9         19  
  9         1547  
5 9     9   52 use strict;
  9         19  
  9         318  
6 9     9   49 use warnings;
  9         13  
  9         274  
7 9     9   49 use AutoLoader qw(AUTOLOAD);
  9         16  
  9         62  
8 9     9   319 use Error qw(:try);
  9         20  
  9         72  
9 9     9   1587 use HH::Unispool::Config::File::Token qw( :rx :frm );
  9         87  
  9         7842  
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             'device_file' => [ '^.*$' ],
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__