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   1249 use strict; use utf8; use warnings FATAL => 'all';
  2     2   3  
  2     2   48  
  2         11  
  2         3  
  2         12  
  2         48  
  2         3  
  2         71  
3 2     2   10 use parent 'DTL::Fast::Tag';
  2         3  
  2         11  
4              
5             $DTL::Fast::TAG_HANDLERS{'filter'} = __PACKAGE__;
6              
7 2     2   129 use DTL::Fast::FilterManager;
  2         2  
  2         299  
8              
9             #@Override
10 4     4 0 13 sub get_close_tag{ return 'endfilter';}
11              
12             sub parse_parameters
13             {
14 4     4 0 7 my $self = shift;
15             $self->{'filter_manager'} = DTL::Fast::FilterManager->new(
16 4         12 'filters' => $self->{'parameter'}
17             );
18 4         10 return $self;
19             }
20              
21             #@Override
22             sub render
23             {
24 3     3 0 6 my $self = shift;
25 3         4 my $context = shift;
26 3         5 my $result = '';
27              
28 3         15 return $self->{'filter_manager'}->filter(
29             $self->SUPER::render($context)
30             , $context
31             );
32             }
33              
34              
35             1;