File Coverage

blib/lib/Template/Pure/EncodedString.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	20	22	90.9

package Template::Pure::EncodedString;

use strict;
use warnings;

use overload q{""} => sub { shift->as_string }, fallback => 1;

sub new {
  my ($klass, $str) = @_;
  bless \$str, $klass;
}

sub as_string {
  my $self = shift;
  $$self;
}

1;