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   40 use strict;
  11         11  
  11         419  
11              
12             require 5.005;
13              
14             package Gedcom::Event;
15              
16 11     11   37 use Gedcom::Record 1.20;
  11         135  
  11         207  
17              
18 11     11   36 use vars qw($VERSION @ISA);
  11         14  
  11         564  
19             $VERSION = "1.20";
20             @ISA = qw( Gedcom::Record );
21              
22             1;
23              
24             __END__