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.40067';
4 142     142   728708 use strict;
  142         202  
  142         3830  
5 142     142   518 use warnings;
  142         204  
  142         3748  
6 142     142   528 use base ('Locale::Maketext');
  142         390  
  142         71714  
7 142     142   1233618 use Try::Tiny;
  142         16360  
  142         20459  
8              
9             sub maketext {
10 847     847 0 1498 my ( $lh, @message ) = @_;
11 847 50       1858 return '' unless scalar @message;
12 847 50       1769 return '' unless defined $message[0];
13 847         814 my $out;
14             try {
15 847     847   29058 $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 847         6426 };
21 847         47146 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.40067
39              
40             =head1 AUTHOR
41              
42             FormHandler Contributors - see HTML::FormHandler
43              
44             =head1 COPYRIGHT AND LICENSE
45              
46             This software is copyright (c) 2016 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