File Coverage

blib/lib/MAB2/Record/lokal.pm
Criterion Covered Total %
statement 9 12 75.0
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 19 63.1


line stmt bran cond sub pod time code
1             package MAB2::Record::lokal;
2             our $VERSION = '0.01';
3 2     2   10 use base qw(MAB2::Record::Base);
  2         4  
  2         185  
4              
5 2     2   11 use strict;
  2         2  
  2         49  
6 2     2   10 use overload '""' => "as_string";
  2         3  
  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         $RDocs->{$rec}[3] || $self->SUPER::segmentname($rec);
23             }
24              
25             1;
26              
27             # lokalmab.txt
28             __DATA__