File Coverage

blib/lib/MAB2/Record/pnd.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 18 19 94.7


line stmt bran cond sub pod time code
1             package MAB2::Record::pnd;
2             our $VERSION = '0.01';
3 2     2   11 use base qw(MAB2::Record::Base);
  2         3  
  2         175  
4              
5 2     2   11 use strict;
  2         4  
  2         57  
6 2     2   11 use overload '""' => "as_string";
  2         3  
  2         16  
7              
8             my $KDocs;
9             my $RDocs;
10              
11             {
12             local $/;
13             my $strdocs = ;
14             close DATA;
15             ($KDocs, $RDocs) = __PACKAGE__->parsedoc($strdocs);
16             }
17              
18             # cannot inherit, $RDocs is different here
19             sub segmentname {
20 26     26 0 37 my $self = shift;
21 26         35 my $rec = shift;
22 26 100       143 $RDocs->{$rec}[3] || $self->SUPER::segmentname($rec);
23             }
24              
25             1;
26              
27             # pndmab.txt
28             __DATA__