File Coverage

blib/lib/HTML/Template/ESCAPE/STRIP_NEWLINE.pm
Criterion Covered Total %
statement 9 13 69.2
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 20 60.0


line stmt bran cond sub pod time code
1             package HTML::Template::ESCAPE::STRIP_NEWLINE;
2 2     2   1191 use strict;
  2         2  
  2         59  
3 2     2   8 use warnings FATAL => 'all';
  2         3  
  2         64  
4 2     2   10 use base qw(HTML::Template::ESCAPE);
  2         3  
  2         294  
5             our $VERSION = '2.9_01';
6              
7             sub output {
8 0     0 0   my $self = shift;
9 0 0         $_ = shift if (@_ > 0);
10 0           s/\n/ /g;
11 0           $_;
12             }
13              
14             1;