File Coverage

blib/lib/Template/Plugin/Data/HTMLDumper.pm
Criterion Covered Total %
statement 15 25 60.0
branch n/a
condition n/a
subroutine 5 8 62.5
pod n/a
total 20 33 60.6


line stmt bran cond sub pod time code
1             package Template::Plugin::Data::HTMLDumper;
2              
3 1     1   63464 use 5.008003;
  1         4  
  1         51  
4 1     1   6 use strict;
  1         2  
  1         43  
5 1     1   5 use warnings;
  1         7  
  1         114  
6              
7             require Exporter;
8              
9 1     1   6 use base qw( Template::Plugin );
  1         1  
  1         1303  
10 1     1   644212 use Template::Plugin;
  1         3  
  1         247  
11             require Data::HTMLDumper;
12              
13             our @ISA = qw(Exporter);
14              
15             our %EXPORT_TAGS = ( 'all' => [ qw() ] );
16              
17             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
18              
19             our @EXPORT = qw();
20              
21             our $VERSION = '0.10';
22              
23             sub load {
24 0     0     my $class = shift;
25 0           my $context = shift;
26 0           return $class;
27             }
28              
29             sub new {
30 0     0     my $class = shift;
31 0           my $context = shift;
32 0           my $self = bless {
33             '_CONTEXT' => $context,
34             }, $class;
35 0           return $self;
36             }
37              
38             sub dump {
39 0     0     my $self = shift;
40 0           my $content = Data::HTMLDumper::Dumper(@_);
41 0           return $content;
42             }
43              
44             1;
45             __END__