File Coverage

blib/lib/Templ/Tag/Print.pm
Criterion Covered Total %
statement 18 19 94.7
branch 2 4 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 24 28 85.7


line stmt bran cond sub pod time code
1             package Templ::Tag::Print;
2 1     1   5 use base 'Templ::Tag';
  1         2  
  1         68  
3              
4 1     1   6 use strict;
  1         1  
  1         20  
5 1     1   4 use warnings;
  1         2  
  1         111  
6              
7             sub perl {
8 3     3 0 5 my $self = shift;
9 3         5 my $expr = shift;
10 3         6 my $indent = shift;
11 3         4 my $append = shift; # 'print ' or '$templ_out .= '
12              
13 3         4 my $out = '';
14 3 50       8 if ($indent) { $out .= "$append'$indent';\n"; }
  0         0  
15 3 50       10 if ( $expr ne '' ) { $out .= "$append$expr;\n"; }
  3         7  
16 3         64 return $out;
17             }
18              
19             1;