File Coverage

blib/lib/Template/Extract/Parser.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition 2 2 100.0
subroutine 5 5 100.0
pod 1 1 100.0
total 23 23 100.0


line stmt bran cond sub pod time code
1             package Template::Extract::Parser;
2             $Template::Extract::Parser::VERSION = '0.41';
3              
4 1     1   20 use 5.006;
  1         4  
  1         45  
5 1     1   9 use strict;
  1         1  
  1         31  
6 1     1   5 use warnings;
  1         2  
  1         26  
7 1     1   6 use base 'Template::Parser';
  1         1  
  1         1041  
8              
9             sub new {
10 13     13 1 23 my $class = shift;
11 13   100     85 my $params = shift || {};
12              
13 13         129 $class->SUPER::new(
14             {
15             PRE_CHOMP => 1,
16             POST_CHOMP => 1,
17             %$params,
18             }
19             );
20             }
21              
22             1;
23              
24             __END__