File Coverage

blib/lib/DTL/Fast/Tag/Simple.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             package DTL::Fast::Tag::Simple;
2 20     20   7050 use strict;
  20         42  
  20         461  
3 20     20   84 use utf8;
  20         39  
  20         78  
4 20     20   392 use warnings FATAL => 'all';
  20         38  
  20         533  
5 20     20   96 use parent 'DTL::Fast::Tag';
  20         40  
  20         94  
6              
7             sub new
8             {
9 126     126 0 422 my ( $proto, $parameter, %kwargs ) = @_;
10 126         262 $kwargs{raw_chunks} = [ ]; # no chunks parsing
11 126         524 return $proto->SUPER::new($parameter, %kwargs);
12             }
13              
14             1;