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   11970 use strict; use utf8; use warnings FATAL => 'all';
  20     20   40  
  20     20   577  
  20         102  
  20         38  
  20         111  
  20         500  
  20         36  
  20         685  
3 20     20   101 use parent 'DTL::Fast::Tag';
  20         32  
  20         113  
4              
5             sub new
6             {
7 126     126 0 466 my( $proto, $parameter, %kwargs ) = @_;
8 126         258 $kwargs{'raw_chunks'} = []; # no chunks parsing
9 126         649 return $proto->SUPER::new($parameter, %kwargs);
10             }
11              
12             1;