File Coverage

blib/lib/SyslogScan/In_identdLine.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1             package SyslogScan::In_identdLine;
2              
3 1     1   1028 use SyslogScan::SyslogEntry;
  0            
  0            
4              
5             $VERSION = 0.20;
6             sub Version { $VERSION };
7              
8             @ISA = qw( SyslogScan::SyslogEntry );
9             use strict;
10              
11             sub parseContent
12             {
13             my ($self) = shift;
14              
15             # check that we have the tag
16             die "no tag found in in_identd line $$self{content}" unless
17             defined $$self{tag};
18             }
19              
20             __END__