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   16 use strict;
  3         6  
  3         73  
4 3     3   14 use warnings;
  3         4  
  3         74  
5              
6              
7 3     3   15 use base 'Class::Accessor';
  3         6  
  3         2506  
8              
9             sub new
10             {
11 84     84 1 829529 my $class = shift;
12 84         140 my $self = {};
13 84         162 bless $self, $class;
14 84         266 $self->initialize(@_);
15 84         214 return $self;
16             }
17              
18              
19             1;
20              
21             __END__