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   49619 use strict;
  6         9  
  6         226  
4 6     6   64 use warnings;
  6         9  
  6         973  
5              
6             sub new {
7 19     19 1 3225 my $class = shift;
8 19         50 my (%params) = @_;
9              
10 19         26 my $self = {};
11 19         34 bless $self, $class;
12              
13 19         45 $self->{language} = $params{language};
14 19         25 $self->{handle} = $params{handle};
15              
16 19         72 return $self;
17             }
18              
19 1     1 1 9 sub language { $_[0]->{language} }
20              
21 1     1 1 5 sub loc { &maketext }
22              
23             sub maketext {
24 5     5 1 13 my $self = shift;
25              
26 5         51 return $self->{handle}->maketext(@_);
27             }
28              
29             1;
30             __END__