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   7625 use strict; use utf8; use warnings FATAL => 'all';
  20     20   51  
  20     20   447  
  20         64  
  20         23  
  20         69  
  20         350  
  20         24  
  20         551  
3 20     20   66 use parent 'DTL::Fast::Tag';
  20         24  
  20         76  
4              
5             sub new
6             {
7 126     126 0 295 my( $proto, $parameter, %kwargs ) = @_;
8 126         167 $kwargs{'raw_chunks'} = []; # no chunks parsing
9 126         444 return $proto->SUPER::new($parameter, %kwargs);
10             }
11              
12             1;