File Coverage

blib/lib/Template/HTML/Stash.pm
Criterion Covered Total %
statement 16 16 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package Template::HTML::Stash;
2              
3 2     2   12 use strict;
  2         3  
  2         63  
4 2     2   10 use warnings;
  2         2  
  2         55  
5 2     2   9 use base qw(Template::Stash);
  2         3  
  2         2703  
6 2     2   31890 use Template::HTML::Variable;
  2         4  
  2         154  
7              
8              
9             sub get {
10 22     22 1 143186 my $self = shift;
11              
12 22         102 my $value = $self->SUPER::get(@_);
13              
14 22 50       1050 $value = Template::HTML::Variable->new($value) unless ref $value;
15              
16 22         152 return $value;
17             }
18              
19             1;
20             __END__