File Coverage

blib/lib/Plack/I18N/Handle.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 4 4 100.0
total 27 27 100.0


line stmt bran cond sub pod time code
1             package Plack::I18N::Handle;
2              
3 6     6   17566 use strict;
  6         9  
  6         225  
4 6     6   25 use warnings;
  6         8  
  6         790  
5              
6             sub new {
7 19     19 1 3175 my $class = shift;
8 19         43 my (%params) = @_;
9              
10 19         20 my $self = {};
11 19         28 bless $self, $class;
12              
13 19         35 $self->{language} = $params{language};
14 19         18 $self->{handle} = $params{handle};
15              
16 19         66 return $self;
17             }
18              
19 1     1 1 9 sub language { $_[0]->{language} }
20              
21 1     1 1 6 sub loc { &maketext }
22              
23             sub maketext {
24 5     5 1 10 my $self = shift;
25              
26 5         31 return $self->{handle}->maketext(@_);
27             }
28              
29             1;
30             __END__