File Coverage

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


line stmt bran cond sub pod time code
1             package Template::Extract::Parser;
2             $Template::Extract::Parser::VERSION = '0.50';
3 2     2   303900 use strict;
  2         6  
  2         106  
4 2     2   11 use warnings;
  2         4  
  2         353  
5 2     2   44 use 5.006;
  2         5  
6 2     2   10 use parent 'Template::Parser';
  2         4  
  2         16  
7              
8             sub new {
9 14     14 1 30 my $class = shift;
10 14   100     63 my $params = shift || {};
11              
12 14         110 $class->SUPER::new(
13             {
14             PRE_CHOMP => 1,
15             POST_CHOMP => 1,
16             %$params,
17             }
18             );
19             }
20              
21             1;
22              
23             __END__