File Coverage

blib/lib/Gedcom/Event.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             # Copyright 1999-2019, Paul Johnson (paul@pjcj.net)
2              
3             # This software is free. It is licensed under the same terms as Perl itself.
4              
5             # The latest version of this software should be available from my homepage:
6             # http://www.pjcj.net
7              
8             # documentation at __END__
9              
10 11     11   64 use strict;
  11         17  
  11         418  
11              
12             require 5.005;
13              
14             package Gedcom::Event;
15              
16 11     11   57 use Gedcom::Record 1.21;
  11         218  
  11         286  
17              
18 11     11   53 use vars qw($VERSION @ISA);
  11         20  
  11         699  
19             $VERSION = "1.21";
20             @ISA = qw( Gedcom::Record );
21              
22             1;
23              
24             __END__