File Coverage

blib/lib/Template/Plugin/StripScripts.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	5	5	100.0
pod	0	2	0.0
total	24	28	85.7

package Template::Plugin::StripScripts;

use strict;
use HTML::StripScripts::Parser;

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

our $VERSION = 0.02;

sub init {
    my $self = shift;
    $self->{_DYNAMIC} = 1;
    $self->install_filter($self->{_ARGS}->[0] || 'stripscripts');
    $self;
}

sub filter {
    my ($self, $text, $args, $config) = @_;
    my $parser_options = delete $config->{ParserOptions};
    my $hss = HTML::StripScripts::Parser->new(
        $config,
        ref $parser_options eq 'HASH' ? %$parser_options : undef,
    );
    return $hss->filter_html($text);
}

1;

__END__