Commit | Line | Data |
ed99cbb4 |
1 | package HTML::String::TT::Directive; |
2 | |
3 | use strictures 1; |
4 | use HTML::String::Overload (); |
cfb242dd |
5 | use Data::Munge; |
ed99cbb4 |
6 | use base qw(Template::Directive); |
7 | |
8 | sub template { |
cfb242dd |
9 | return byval { |
a31f2ca0 |
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 } };/; |
cfb242dd |
11 | } Template::Directive::pad(shift->SUPER::template(@_), 2); |
ed99cbb4 |
12 | } |
13 | |
f27b509e |
14 | sub textblock { |
15 | my ($self, $text) = @_; |
16 | return $Template::Directive::OUTPUT.' '.$self->text($text).';'; |
17 | } |
18 | |
19 | sub text { |
20 | my ($class, $text) = @_; |
21 | for ($text) { |
5bee64f9 |
22 | s/(["\$\@\\])/"."\\$1"."/g; |
f27b509e |
23 | s/\n/"."\\n"."/g; |
24 | } |
25 | return '"' . $text . '"'; |
26 | } |
27 | |
ed99cbb4 |
28 | 1; |