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

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

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

sub template {
    return byval {
        s/sub {/sub { use HTML::String::Overload;/;
    } Template::Directive::pad(shift->SUPER::template(@_), 2);
}

1;
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 {
	10	s/sub {/sub { use HTML::String::Overload;/;
	11	} Template::Directive::pad(shift->SUPER::template(@_), 2);
ed99cbb4	12	}
	13
	14	1;