File Coverage

blib/lib/Template/Stash/HTML/Entities.pm
Criterion Covered Total %
statement 23 23 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 33 33 100.0


line stmt bran cond sub pod time code
1             #
2             # $Id: Entities.pm,v 1.5 2007/05/04 08:02:58 hironori.yoshida Exp $
3             #
4             package Template::Stash::HTML::Entities;
5              
6 2     2   74323 use strict;
  2         4  
  2         81  
7 2     2   11 use warnings;
  2         5  
  2         62  
8 2     2   10 use version; our $VERSION = qv('1.3.1');
  2         8  
  2         17  
9              
10 2     2   2615 use HTML::Entities;
  2         14462  
  2         243  
11 2     2   977 use Template::Config;
  2         526113  
  2         72  
12              
13 2     2   17 use base ($Template::Config::STASH);
  2         4  
  2         2217  
14              
15             sub get {
16 2     2 1 1530 my $self = shift;
17              
18 2         19 my $result = $self->SUPER::get(@_);
19 2 100       5 if ( ref $result ) {
20 1         6 return $result;
21             }
22              
23 1         5 return HTML::Entities::encode($result);
24             }
25              
26             1;
27              
28             __END__