diff --git a/Build.PL b/Build.PL index 2b64fb7..067f732 100644 --- a/Build.PL +++ b/Build.PL @@ -1,7 +1,7 @@ -# This Build.PL for FamilyTreeInfo was generated by Dist::Zilla::Plugin::ModuleBuildTiny 0.014. +# This Build.PL for FamilyTreeInfo was generated by Dist::Zilla::Plugin::ModuleBuildTiny 0.008. use strict; use warnings; use 5.008005; -use Module::Build::Tiny 0.034; +use Module::Build::Tiny 0.039; Build_PL(); diff --git a/LICENSE b/LICENSE index dc785b5..61e23b7 100644 --- a/LICENSE +++ b/LICENSE @@ -1,4 +1,4 @@ -This software is copyright (c) 2015- by Dr. Ferenc Bodon and Simon Ward and Nikolay Mishin . +This software is copyright (c) 2015- by Dr. Ferenc Bodon and Simon Ward and Nikolay Mishin. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. @@ -12,7 +12,7 @@ b) the "Artistic License" --- The GNU General Public License, Version 1, February 1989 --- -This software is Copyright (c) 2015- by Dr. Ferenc Bodon and Simon Ward and Nikolay Mishin . +This software is Copyright (c) 2015- by Dr. Ferenc Bodon and Simon Ward and Nikolay Mishin. This is free software, licensed under: @@ -272,7 +272,7 @@ That's all there is to it! --- The Artistic License 1.0 --- -This software is Copyright (c) 2015- by Dr. Ferenc Bodon and Simon Ward and Nikolay Mishin . +This software is Copyright (c) 2015- by Dr. Ferenc Bodon and Simon Ward and Nikolay Mishin. This is free software, licensed under: diff --git a/lib/Ftree/FamilyTreeBase.pm b/lib/Ftree/FamilyTreeBase.pm index df86ebb..5936573 100644 --- a/lib/Ftree/FamilyTreeBase.pm +++ b/lib/Ftree/FamilyTreeBase.pm @@ -30,7 +30,7 @@ use Params::Validate qw(:all); use CGI qw(:standard); use Ftree::FamilyTreeDataFactory; use Ftree::Person; -use Ftree::TextGeneratorFactory qw(getTextGenerator init); +use Ftree::TextGeneratorFactory; use Ftree::SettingsFactory; use Ftree::Date::Tiny; use CGI::Carp qw(fatalsToBrowser warningsToBrowser); diff --git a/lib/Ftree/TextGeneratorFactory.pm b/lib/Ftree/TextGeneratorFactory.pm index c474648..caabea9 100644 --- a/lib/Ftree/TextGeneratorFactory.pm +++ b/lib/Ftree/TextGeneratorFactory.pm @@ -44,18 +44,18 @@ my %langToPict = ( ); my $reverse_name = 0; -sub init : Export{ +sub init : Export(:DEFAULT) { ( $language ) = @_; } -sub getLangToPict : Export{ +sub getLangToPict : Export(:DEFAULT) { return %langToPict; } -sub get_reverse_name : Export{ +sub get_reverse_name : Export(:DEFAULT) { return $reverse_name; } -sub getTextGenerator : Export{ +sub getTextGenerator : Export(:DEFAULT) { switch ($language) { case "hu" { $reverse_name = 1;;