File Coverage

blib/lib/Templ/Tag/Comment.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 17 18 94.4


line stmt bran cond sub pod time code
1             package Templ::Tag::Comment;
2 1     1   5 use base 'Templ::Tag';
  1         24  
  1         81  
3              
4 1     1   5 use strict;
  1         2  
  1         32  
5 1     1   12 use warnings;
  1         2  
  1         124  
6              
7             sub perl {
8 1     1 0 3 my $self = shift;
9 1         2 my $comment = shift;
10              
11 1         4 return join '', map {"# $_\n"} split /\n/, $comment;
  1         204  
12             }
13              
14             1;