dear TT, you are a pain in the buttocks

[scpubgit/HTML-String.git] / lib / HTML / String / TT.pm

diff --git a/lib/HTML/String/TT.pm b/lib/HTML/String/TT.pm
index 9a6d1dd..0244de8 100644 (file)
--- a/lib/HTML/String/TT.pm
+++ b/lib/HTML/String/TT.pm
@@ -18,6 +18,16 @@ use Template;
 use Template::Parser;
 use Template::Stash;
 
+BEGIN {
+  my $orig_blessed = Template::Stash->can('blessed');
+  no warnings 'redefine';
+  *Template::Stash::blessed = sub ($) {
+    my $val = $orig_blessed->($_[0]);
+    return undef if defined($val) and $val eq 'HTML::String::Value';
+    return $val;
+  };
+}
+
 sub new {
     shift;
     Template->new(