File Coverage

blib/lib/Text/ClearSilver/FunctionSet/html.pm
Criterion Covered Total %
statement 13 13 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 18 19 94.7


line stmt bran cond sub pod time code
1             package Text::ClearSilver::FunctionSet::html;
2 1     1   10 use strict;
  1         32  
  1         52  
3 1     1   5 use warnings;
  1         1  
  1         39  
4 1     1   4 use Text::ClearSilver::FunctionSet qw(usage);
  1         1  
  1         164  
5              
6             sub _function_nl2br {
7 2     2   987 my($str) = @_;
8 2 50       8 usage 'nl2br(expr)' if @_ != 1;
9 2         9 $str =~ s{\n}{
\n}xmsg;
10 2         18 return $str;
11             }
12              
13              
14             1;
15             __END__