File Coverage

blib/lib/Template/Preprocessor/TTML/Base.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Template::Preprocessor::TTML::Base;
2              
3 3     3   25 use strict;
  3         6  
  3         82  
4 3     3   16 use warnings;
  3         6  
  3         73  
5              
6              
7 3     3   15 use base 'Class::Accessor';
  3         6  
  3         1689  
8              
9             sub new
10             {
11 84     84 1 103185 my $class = shift;
12 84         174 my $self = {};
13 84         159 bless $self, $class;
14 84         276 $self->initialize(@_);
15 84         222 return $self;
16             }
17              
18              
19             1;
20              
21             __END__