File Coverage

blib/lib/Ftree/Picture.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             #######################################################
2             #
3             # Family Tree generation program, v2.0
4             # Written by Ferenc Bodon and Simon Ward, March 2000 (simonward.com)
5             # Copyright (C) 2000 Ferenc Bodon, Simon K Ward
6             #
7             # This program is free software; you can redistribute it and/or
8             # modify it under the terms of the GNU General Public License
9             # as published by the Free Software Foundation; either version 2
10             # of the License, or (at your option) any later version.
11             #
12             # This program is distributed in the hope that it will be useful,
13             # but WITHOUT ANY WARRANTY; without even the implied warranty of
14             # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15             # GNU General Public License for more details.
16             #
17             # For a copy of the GNU General Public License, visit
18             # http://www.gnu.org or write to the Free Software Foundation, Inc.,
19             # 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
20             #
21             #######################################################
22              
23             package Ftree::Picture;
24 1     1   5 use strict;
  1         2  
  1         23  
25 1     1   5 use warnings;
  1         2  
  1         25  
26 1     1   5 use version; our $VERSION = qv('2.3.30');
  1         1  
  1         7  
27              
28 1     1   77 use Class::Std::Storable;
  1         2  
  1         9  
29             {
30             my %file_name_of : ATTR(:name<file_name>);
31             my %comment_of : ATTR(:name<comment>);
32             }
33              
34             1;