File Coverage

blib/lib/DTL/Fast/Tag/Filter.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 3 0.0
total 31 34 91.1


line stmt bran cond sub pod time code
1             package DTL::Fast::Tag::Filter;
2 2     2   743 use strict;
  2         5  
  2         82  
3 2     2   9 use utf8;
  2         3  
  2         9  
4 2     2   40 use warnings FATAL => 'all';
  2         4  
  2         58  
5 2     2   9 use parent 'DTL::Fast::Tag';
  2         4  
  2         9  
6              
7             $DTL::Fast::TAG_HANDLERS{filter} = __PACKAGE__;
8              
9 2     2   106 use DTL::Fast::FilterManager;
  2         4  
  2         190  
10              
11             #@Override
12 4     4 0 15 sub get_close_tag { return 'endfilter';}
13              
14             sub parse_parameters
15             {
16 4     4 0 6 my $self = shift;
17             $self->{filter_manager} = DTL::Fast::FilterManager->new(
18             filters => $self->{parameter}
19 4         13 );
20 4         9 return $self;
21             }
22              
23             #@Override
24             sub render
25             {
26 3     3 0 5 my $self = shift;
27 3         5 my $context = shift;
28 3         6 my $result = '';
29              
30             return $self->{filter_manager}->filter(
31 3         12 $self->SUPER::render($context)
32             , $context
33             );
34             }
35              
36              
37             1;