1package HTML::FormHandler::I18N; 2# ABSTRACT: internationalization 3$HTML::FormHandler::I18N::VERSION = '0.40068'; 4use strict; 5use warnings; 6use base ('Locale::Maketext'); 7use Try::Tiny; 8 9sub maketext { 10 my ( $lh, @message ) = @_; 11 return '' unless scalar @message; 12 return '' unless defined $message[0]; 13 my $out; 14 try { 15 $out = $lh->SUPER::maketext(@message); 16 } 17 catch { 18 die "Unable to do maketext on: " . $message[0] . 19 "\nIf the message contains brackets you may need to escape them with a tilde."; 20 }; 21 return $out; 22} 23 241; 25 26__END__ 27 28=pod 29 30=encoding UTF-8 31 32=head1 NAME 33 34HTML::FormHandler::I18N - internationalization 35 36=head1 VERSION 37 38version 0.40068 39 40=head1 AUTHOR 41 42FormHandler Contributors - see HTML::FormHandler 43 44=head1 COPYRIGHT AND LICENSE 45 46This software is copyright (c) 2017 by Gerda Shank. 47 48This is free software; you can redistribute it and/or modify it under 49the same terms as the Perl 5 programming language system itself. 50 51=cut 52