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