File Coverage

blib/lib/HTML/Template/Pro/Extension/DO_NOTHING.pm
Criterion Covered Total %
statement 16 18 88.8
branch n/a
condition 0 3 0.0
subroutine 6 7 85.7
pod 0 3 0.0
total 22 31 70.9


line stmt bran cond sub pod time code
1             package HTML::Template::Pro::Extension::DO_NOTHING;
2              
3             $VERSION = "0.11";
4 0     0 0 0 sub Version { $VERSION; }
5              
6 1     1   7 use Carp;
  1         3  
  1         84  
7 1     1   6 use strict;
  1         2  
  1         190  
8              
9             my %fields_parent =
10             (
11             );
12              
13             sub init {
14 1     1 0 2 my $self = shift;
15 1         9 while (my ($key,$val) = each(%fields_parent)) {
16 0   0     0 $self->{$key} = $self->{$key} || $val;
17             }
18             }
19              
20             sub get_filter {
21 1     1 0 2 my $self = shift;
22 1         3 return _get_filter($self);
23             }
24              
25             sub _get_filter {
26 1     1   2 my $self = shift;
27 1         2 my @ret ;
28 1         2 push @ret,\&_do_nothing;
29 1         5 return @ret;
30             }
31              
32             sub _do_nothing {
33 8     8   10 my $template = shift;
34 8         31 $$template = $$template
35             }
36              
37             1;