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   63 use strict;
  11         20  
  11         430  
11              
12             require 5.005;
13              
14             package Gedcom::Event;
15              
16 11     11   51 use Gedcom::Record 1.22;
  11         244  
  11         279  
17              
18 11     11   52 use vars qw($VERSION @ISA);
  11         17  
  11         761  
19             $VERSION = "1.22";
20             @ISA = qw( Gedcom::Record );
21              
22             1;
23              
24             __END__