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   39432 use strict;
  2         3  
  2         67  
2 2     2   8 use warnings;
  2         2  
  2         96  
3              
4             package Template::AutoFilter;
5              
6             our $VERSION = '0.143050'; # VERSION
7             # ABSTRACT: Template::Toolkit with automatic filtering
8              
9              
10 2     2   8 use base 'Template';
  2         2  
  2         2349  
11              
12 2     2   17543 use Template::AutoFilter::Parser;
  2         7  
  2         241  
13              
14             sub new {
15 18     18 1 97034 my $class = shift;
16              
17 18 100 66     152 my $params = defined($_[0]) && ref($_[0]) eq 'HASH' ? shift : {@_};
18 18   50 4   155 $params->{FILTERS}{none} ||= sub { $_[0] };
  4         3626  
19              
20 18   33     130 $params->{PARSER} ||= Template::AutoFilter::Parser->new( $params );
21              
22 18         79 return $class->SUPER::new( $params );
23             }
24              
25             1;
26              
27             __END__