File Coverage

blib/lib/MAB2/Record/gkd.pm
Criterion Covered Total %
statement 9 13 69.2
branch n/a
condition 0 3 0.0
subroutine 3 4 75.0
pod 0 1 0.0
total 12 21 57.1


line stmt bran cond sub pod time code
1             package MAB2::Record::gkd;
2             our $VERSION = '0.01';
3 2     2   10 use base qw(MAB2::Record::Base);
  2         4  
  2         159  
4              
5 2     2   11 use strict;
  2         4  
  2         52  
6 2     2   10 use overload '""' => "as_string";
  2         4  
  2         12  
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 0     0 0   my $self = shift;
21 0           my $rec = shift;
22 0   0       my $ret = $RDocs->{$rec}[3] || $self->SUPER::segmentname($rec);
23             # warn "ret[$ret]";
24 0           $ret;
25             }
26              
27             1;
28              
29             # gkdmab.txt
30             __DATA__