File Coverage

blib/lib/Template/Plugin/StringDump.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 29 30 96.6


line stmt bran cond sub pod time code
1             package Template::Plugin::StringDump;
2              
3 3     3   199156 use 5.006;
  3         13  
  3         224  
4 3     3   20 use strict;
  3         7  
  3         135  
5 3     3   19 use warnings;
  3         20  
  3         111  
6 3     3   2417 use utf8;
  3         23  
  3         20  
7 3     3   2414 use parent qw( Template::Plugin::Filter );
  3         1137  
  3         18  
8 3     3   19021 use String::Dump qw( :all );
  3         130221  
  3         844  
9              
10             our $VERSION = '0.05';
11              
12             sub init {
13 2     2 0 150 my ($self) = @_;
14              
15 2         6 for my $filter (qw<
16             dump_hex
17             dump_dec
18             dump_oct
19             dump_bin
20             dump_names
21             dump_codes
22             >) {
23 12         200 $self->{_CONTEXT}->define_filter($filter => \&$filter);
24             }
25              
26 2         28 return $self;
27             }
28              
29             1;
30              
31             __END__