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

package HTML::String::TT::Directive;

use strictures 1;
use HTML::String::Overload ();
use base qw(Template::Directive);

sub template {
    my $result = Template::Directive::pad(shift->SUPER::template(@_), 2);
    $result =~ s/sub {/sub { use HTML::String::Overload;/;
    $result;
}

1;
Commit	Line	Data
ed99cbb4	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;