File Coverage

blib/lib/Ftree/TextGeneratorFactory.pm

Criterion	Covered	Total	%
statement	15	89	16.8
branch	0	16	0.0
condition			n/a
subroutine	5	9	55.5
pod	0	4	0.0
total	20	118	16.9

#######################################################
#
# Family Tree generation program, v2.0
# Written by Ferenc Bodon and Simon Ward, March 2000 (simonward.com)
# Copyright (C) 2000 Ferenc Bodon, Simon K Ward
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# For a copy of the GNU General Public License, visit
# http://www.gnu.org or write to the Free Software Foundation, Inc.,
# 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
#
#######################################################

package Ftree::TextGeneratorFactory;
use strict;
use warnings;

use Sub::Exporter -setup => { exports => [ qw(init getTextGenerator get_reverse_name) ] };
#use Perl6::Export::Attrs;
use Switch;
use version; our $VERSION = qv('2.3.31');

my $language = "gb";
my %langToPict = (
    hungarian => "hu",
    english => "gb",
    german => "de",
#    spanish => "es",
    italian => "it",
    french => "fr",
    polish => "pl",
    romanian => "ro",
    russian => "ru",
#    slovenian => "si",
#    japanese => "jp",
#    chinese => "cn",
);
my $reverse_name = 0;

sub init{
  ( $language ) = @_;
}

sub getLangToPict{
  return %langToPict;
}
sub get_reverse_name{
  return $reverse_name;
}

sub getTextGenerator{
  switch ($language) {
    case "hu" {
      $reverse_name = 1;;
      require Ftree::TextGenerators::HungarianTextGenerator;
      return HungarianTextGenerator->new( );
    }
    case "gb" {
      require Ftree::TextGenerators::EnglishTextGenerator;
      return EnglishTextGenerator->new( );
    }
    case "de" {
      require Ftree::TextGenerators::GermanTextGenerator;
      return GermanTextGenerator->new( );
    }
    case "fr" {
      require Ftree::TextGenerators::FrenchTextGenerator;
      return FrenchTextGenerator->new( );
    }
    case "pl" {
      require Ftree::TextGenerators::PolishTextGenerator;
      return PolishTextGenerator->new( );
    }
    case "it" {
      require Ftree::TextGenerators::ItalianTextGenerator;
      return ItalianTextGenerator->new( );
    }
    case "ro" {
      require Ftree::TextGenerators::RomanianTextGenerator;
      return RomanianTextGenerator->new( );
    }
    case "ru" {
      require Ftree::TextGenerators::RussianTextGenerator;
      return RussianTextGenerator->new( );
    }
    else {
      require Ftree::TextGenerators::EnglishTextGenerator;
      EnglishTextGenerator->new( );
    }
  }
}

1;