1 package HTML::String::TT::Directive;
4 use HTML::String::Overload ();
6 use base qw(Template::Directive);
10 s/sub {/sub { package HTML::String::TT::_TMPL; use HTML::String::Overload { ignore => { q{Template::Provider} => 1, q{Template::Directive} => 1, q{Template::Document} => 1, q{Template::Plugins} => 1 } };/;
11 } Template::Directive::pad(shift->SUPER::template(@_), 2);
15 my ($self, $text) = @_;
16 return $Template::Directive::OUTPUT.' '.$self->text($text).';';
20 my ($class, $text) = @_;
22 s/(["\$\@\\])/"."\\$1"."/g;
25 return '"' . $text . '"';