File Coverage

blib/lib/HTML/Template/Extension/DO_NOTHING.pm
Criterion Covered Total %
statement 18 20 90.0
branch n/a
condition 0 3 0.0
subroutine 6 7 85.7
pod 0 3 0.0
total 24 33 72.7


line stmt bran cond sub pod time code
1             package HTML::Template::Extension::DO_NOTHING;
2              
3             $VERSION = "0.24";
4 0     0 0 0 sub Version { $VERSION; }
5              
6 1     1   7 use Carp;
  1         2  
  1         95  
7 1     1   7 use strict;
  1         2  
  1         441  
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 push_filter {
21 3     3 0 5 my $self = shift;
22 3         4 push @{$self->{filter_internal}},@{_get_filter($self)};
  3         8  
  3         9  
23             }
24             sub _get_filter {
25 3     3   5 my $self = shift;
26 3         5 my @ret ;
27 3         7 push @ret,\&_do_nothing;
28 3         14 return \@ret;
29             }
30              
31              
32             sub _do_nothing {
33 8     8   595 my $template = shift;
34 8         20 $$template = $$template
35             }
36              
37             1;