File Coverage

blib/lib/HTML/FormHandler/I18N.pm
Criterion Covered Total %
statement 12 20 60.0
branch 0 4 0.0
condition n/a
subroutine 4 7 57.1
pod 0 1 0.0
total 16 32 50.0


line stmt bran cond sub pod time code
1             package HTML::FormHandler::I18N;
2             # ABSTRACT: internationalization
3              
4 9     9   215222 use strict;
  9         23  
  9         331  
5 9     9   47 use warnings;
  9         107  
  9         839  
6 9     9   52 use base ('Locale::Maketext');
  9         39  
  9         41178  
7 9     9   233866 use Try::Tiny;
  9         75488  
  9         2217  
8              
9             sub maketext {
10 0     0 0   my ( $lh, @message ) = @_;
11 0 0         return '' unless scalar @message;
12 0 0         return '' unless defined $message[0];
13 0           my $out;
14             try {
15 0     0     $out = $lh->SUPER::maketext(@message);
16             }
17             catch {
18 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 0           };
21 0           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.40057
39              
40             =head1 AUTHOR
41              
42             FormHandler Contributors - see HTML::FormHandler
43              
44             =head1 COPYRIGHT AND LICENSE
45              
46             This software is copyright (c) 2014 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