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