File Coverage

blib/lib/HTML/Template/ESCAPE/DOUBLE_QUOTE.pm
Criterion Covered Total %
statement 9 12 75.0
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 19 63.1


line stmt bran cond sub pod time code
1             package HTML::Template::ESCAPE::DOUBLE_QUOTE;
2 2     2   1306 use strict;
  2         3  
  2         70  
3 2     2   10 use warnings FATAL => 'all';
  2         4  
  2         66  
4 2     2   9 use base qw(HTML::Template::ESCAPE);
  2         3  
  2         277  
5             our $VERSION = '2.9';
6              
7             sub output {
8 0     0 0   my $self = shift;
9 0 0         $_ = shift if (@_ > 0);
10 0           $_ = '"'.$_.'"';
11             }
12              
13             1;