lib/HTML/String/TT/Directive.pm

   1 package HTML::String::TT::Directive;
   2
   3 use strictures 1;
   4 use HTML::String::Overload ();
   5 use base qw(Template::Directive);
   6
   7 sub template {
   8     my $result = Template::Directive::pad(shift->SUPER::template(@_), 2);
   9     $result =~ s/sub {/sub { use HTML::String::Overload;/;
  10     $result;
  11 }
  12
  13 1;