File Coverage

blib/lib/HTML/FormHandler/I18N.pm
Criterion Covered Total %
statement 19 20 95.0
branch 2 4 50.0
condition n/a
subroutine 6 7 85.7
pod 0 1 0.0
total 27 32 84.3


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