File Coverage

lib/Template/Plugin/Dump.pm
Criterion Covered Total %
statement 15 27 55.5
branch n/a
condition n/a
subroutine 5 7 71.4
pod 2 2 100.0
total 22 36 61.1


line stmt bran cond sub pod time code
1             package Template::Plugin::Dump;
2            
3 1     1   62107 use strict;
  1         2  
  1         47  
4 1     1   1142 use Data::Dump;
  1         6882  
  1         74  
5 1     1   1150 use Template::Plugin;
  1         5924  
  1         38  
6 1     1   9 use base qw( Template::Plugin );
  1         1  
  1         72  
7 1     1   5 use vars qw( $VERSION );
  1         2  
  1         211  
8            
9             $VERSION = '0.02';
10            
11             sub dump {
12 0     0 1   my $self = shift;
13 0           my $content = Data::Dump::dump(@_);
14 0           return $content;
15             }
16            
17             sub dump_html {
18 0     0 1   my $self = shift;
19 0           my $content = Data::Dump::dump(@_);
20            
21 0           $content =~ s/&/&/g;
22 0           $content =~ s/
23 0           $content =~ s/>/>/g;
24 0           $content =~ s/ / /g;
25 0           $content =~ s/"/"/g;
26 0           $content =~ s/\n/
\n/g;
27            
28 0           return $content;
29             }
30            
31             1;
32            
33             __END__