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-2013, 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   61 use strict;
  11         18  
  11         425  
11              
12             require 5.005;
13              
14             package Gedcom::Event;
15              
16 11     11   55 use Gedcom::Record 1.20;
  11         145  
  11         260  
17              
18 11     11   53 use vars qw($VERSION @ISA);
  11         20  
  11         601  
19             $VERSION = "1.20";
20             @ISA = qw( Gedcom::Record );
21              
22             1;
23              
24             __END__