File Coverage

blib/lib/Template/Plugin/HTML/Template.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	2	0.0
total	32	36	88.8

package Template::Plugin::HTML::Template;

use strict;
use vars qw($VERSION $DYNAMIC $FILTER_NAME);
$VERSION = 0.02;

$DYNAMIC = 1;
$FILTER_NAME = 'html_template';

use HTML::Template;
use base qw(Template::Plugin::Filter);

sub init {
    my($self, $options) = @_;
    my $name = $self->{_ARGS}->[0] || $FILTER_NAME;
    $self->install_filter($name);
    $self->{_options} = $options;
    return $self;
}

sub filter {
    my($self, $text, $args, $options) = @_;
    my $template = HTML::Template->new(
	strict => 0,
	die_on_bad_params => 0,
	%{$self->{_options}},
	%$options,
	scalarref => \$text,
    );

    my $stash = $self->{_CONTEXT}->stash;
    my @params = map { ($_ => $stash->{ $_ }) } grep !/^[\._]/, keys %$stash;
    $template->param(@params);
    return $template->output;
}

1;
__END__