X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FHTML-String.git;a=blobdiff_plain;f=lib%2FHTML%2FString%2FTT%2FDirective.pm;h=770f5fad63dc21fc7bce2b60441e94d5e200dac9;hp=726acfe1f27fbc9839de4d3e0c853427e75afe25;hb=5c65e9e110f77d158b790e86d0f5cd585b25da3f;hpb=9c9a7ae5e59d3c6c7759842661be485aac0fcd9c

diff --git a/lib/HTML/String/TT/Directive.pm b/lib/HTML/String/TT/Directive.pm
index 726acfe..770f5fa 100644
--- a/lib/HTML/String/TT/Directive.pm
+++ b/lib/HTML/String/TT/Directive.pm
@@ -11,11 +11,15 @@ sub template {
     } Template::Directive::pad(shift->SUPER::template(@_), 2);
 }
 
+# TT code does &text(), no idea why
+
 sub textblock {
     my ($self, $text) = @_;
     return $Template::Directive::OUTPUT.' '.$self->text($text).';';
 }
 
+# https://rt.perl.org/rt3/Ticket/Display.html?id=49594
+
 sub text {
     my ($class, $text) = @_;
     for ($text) {