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; |