File Coverage

blib/lib/Template/Multilingual.pm
Criterion Covered Total %
statement 22 22 100.0
branch 4 4 100.0
condition 3 4 75.0
subroutine 6 6 100.0
pod 2 2 100.0
total 37 38 97.3


line stmt bran cond sub pod time code
1             package Template::Multilingual;
2              
3 3     3   33603 use strict;
  3         7  
  3         113  
4 3     3   16 use base qw(Template);
  3         4  
  3         3455  
5 3     3   139179 use Template::Multilingual::Parser;
  3         12  
  3         1234  
6              
7             our $VERSION = '1.00';
8              
9             sub _init
10             {
11 4     4   3621 my ($self, $options) = @_;
12              
13 4         27 $self->{LANGUAGE_VAR} = $options->{LANGUAGE_VAR};
14 4   100     35 $options->{LANGUAGE_VAR} ||= 'language';
15 4         29 $options->{PARSER} = Template::Multilingual::Parser->new($options);
16 4         13 $self->{PARSER} = $options->{PARSER};
17 4         31 $self->SUPER::_init($options)
18             }
19             sub language
20             {
21 29     29 1 121873 my $self = shift;
22 29 100       212 @_ ? $self->{language} = shift
23             : $self->{language};
24             }
25             sub process
26             {
27 30     30 1 28737 my ($self, $filename, $vars, @args) = @_;
28 30 100       957 unless ($self->{LANGUAGE_VAR}) {
29 16   50     55 $vars ||= {};
30 16         63 $vars->{language} = $self->{language}
31             }
32 30         323 $self->SUPER::process($filename, $vars, @args);
33             }
34              
35             =head1 NAME
36              
37             Template::Multilingual - Multilingual templates for Template Toolkit
38              
39             =head1 SYNOPSIS
40              
41             This subclass of Template Toolkit's C