File Coverage

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

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition	2	3	66.6
subroutine	7	7	100.0
pod	2	2	100.0
total	34	35	97.1

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

use 5.006;
use strict;

our $VERSION = '0.01';

use Template::Plugin::Filter;
use base 'Template::Plugin::Filter';
use HTML::Strip;

my $FILTER_NAME = 'html_strip';

sub init {
    my $self = shift;

    $self->{_DYNAMIC} = 1;
    $self->install_filter($self->{_ARGS}->[0] || $FILTER_NAME);

    return $self;
}

sub filter {
    my ($self, $text, undef, $config) = @_;
    $config = $self->merge_config($config);

    my $hs = HTML::Strip->new(%$config);
    return $hs->parse($text);
}

1;

__END__