File Coverage

blib/lib/Template/AutoFilter.pm
Criterion Covered Total %
statement 18 18 100.0
branch 2 2 100.0
condition 4 8 50.0
subroutine 6 6 100.0
pod 1 1 100.0
total 31 35 88.5


line stmt bran cond sub pod time code
1 2     2   69901 use strict;
  2         4  
  2         81  
2 2     2   14 use warnings;
  2         4  
  2         113  
3              
4             package Template::AutoFilter;
5              
6             our $VERSION = '0.140770'; # VERSION
7             # ABSTRACT: Template::Toolkit with automatic filtering
8              
9              
10 2     2   11 use base 'Template';
  2         13  
  2         1550  
11              
12 2     2   29493 use Template::AutoFilter::Parser;
  2         7  
  2         271  
13              
14             sub new {
15 15     15 1 144171 my $class = shift;
16              
17 15 100 66     146 my $params = defined($_[0]) && ref($_[0]) eq 'HASH' ? shift : {@_};
18 15   50 1   163 $params->{FILTERS}{none} ||= sub { $_[0] };
  1         2006  
19              
20 15   33     166 $params->{PARSER} ||= Template::AutoFilter::Parser->new( $params );
21              
22 15         87 return $class->SUPER::new( $params );
23             }
24              
25             1;
26              
27             __END__