File Coverage

blib/lib/Ftree/SettingsFactory.pm
Criterion Covered Total %
statement 12 16 75.0
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 24 66.6


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              
24 1     1   6 use strict;
  1         2  
  1         35  
25 1     1   6 use warnings;
  1         2  
  1         38  
26 1     1   766 use lib "../config";
  1         696  
  1         5  
27              
28             package Ftree::SettingsFactory;
29 1     1   119 use version; our $VERSION = qv('2.3.30');
  1         2  
  1         5  
30              
31             sub importSettings{
32 0     0 0   my ( $type ) = @_;
33 0 0         if($type eq "perl") {
34 0           require Ftree::PerlSettingsImporter;
35 0           return Ftree::PerlSettingsImporter::importSettings();
36             }
37             }
38              
39             1;