File Coverage

blib/lib/MojoMojo/I18N.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 12 12 100.0


line stmt bran cond sub pod time code
1             package MojoMojo::I18N;
2 7     7   199273 use strict;
  7         16  
  7         318  
3              
4 7     7   44 use parent 'Locale::Maketext';
  7         12  
  7         54  
5              
6             =head1 Methods
7              
8             =head2 loc
9              
10             Abbreviation for localize()
11              
12             =cut
13              
14             *loc = \&localize;
15              
16             =head2 localize
17              
18             Translate text to locality
19              
20             =cut
21              
22             sub localize {
23 65     65 1 5745844 my $self = shift;
24              
25 65         413 return $self->maketext(@_);
26             }
27              
28             =head2 tense
29              
30             This is only here to satisfy Pod coverage tests.
31             Not sure why t/03podcoverage.t thinks there is a tense sub in here?
32              
33             =head1 NAME
34              
35             MojoMojo::I18N - support for language localization
36              
37             =head1 AUTHORS
38              
39             Marcus Ramberg <mramberg@cpan.org>
40              
41             =head1 LICENSE
42              
43             This library is free software. You can redistribute it and/or modify
44             it under the same terms as Perl itself.
45              
46             =cut
47              
48             1;