File Coverage

blib/lib/Templ/Tag/Perl.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 16 17 94.1


line stmt bran cond sub pod time code
1             package Templ::Tag::Perl;
2 1     1   5 use base 'Templ::Tag';
  1         1  
  1         478  
3              
4 1     1   5 use strict;
  1         1  
  1         19  
5 1     1   5 use warnings;
  1         2  
  1         48  
6              
7             sub perl {
8 8     8 0 9 my $self = shift;
9 8         14 my $content = shift;
10              
11 8         298 return $content;
12             }
13              
14             1;