File Coverage

blib/lib/Template/Stash/AutoEscape/RawString.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 18 20 90.0


line stmt bran cond sub pod time code
1             package Template::Stash::AutoEscape::RawString;
2 3     3   22 use strict;
  3         6  
  3         118  
3 3     3   17 use warnings;
  3         7  
  3         146  
4 3     3   17 use overload '""' => \&as_string;
  3         7  
  3         35  
5              
6             sub new {
7 6     6 0 13 my ( $klass, $str ) = @_;
8 6         35 bless \$str, $klass;
9             }
10              
11             sub as_string {
12 6     6 0 12 my $self = shift;
13 6         52 return $$self;
14             }
15              
16             1;