repair strange error with Perl6::Export::Attrs

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

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:
 

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

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