File Coverage

blib/lib/HH/Unispool/Config/File/Token/Comment/Device.pm
Criterion Covered Total %
statement 28 28 100.0
branch 1 2 50.0
condition 1 2 50.0
subroutine 9 9 100.0
pod 2 2 100.0
total 41 43 95.3


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::File::Token::Comment::Device;
2              
3 8     8   7683 use 5.006;
  8         26  
  8         324  
4 8     8   46 use base qw( HH::Unispool::Config::File::Token::Comment::NetDesc );
  8         20  
  8         1498  
5 8     8   47 use strict;
  8         16  
  8         278  
6 8     8   43 use warnings;
  8         15  
  8         246  
7 8     8   41 use AutoLoader qw(AUTOLOAD);
  8         14  
  8         53  
8 8     8   261 use Error qw(:try);
  8         15  
  8         61  
9 8     8   1349 use HH::Unispool::Config::File::Token qw( :rx :frm );
  8         19  
  8         9922  
10              
11             # Package version
12             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
13              
14             1;
15              
16             __END__