File Coverage

blib/lib/Template/Plugin/DisableForm.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition	1	2	50.0
subroutine	6	6	100.0
pod	2	2	100.0
total	28	29	96.5

package Template::Plugin::DisableForm;
use strict;
use warnings;
use base qw(Template::Plugin::Filter);
use HTML::DisableForm;

our $VERSION = 0.01;

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

sub filter {
    my ($self, $text, $args, $config) = @_;
    my $df = HTML::DisableForm->new;
    return $df->disable_form(scalarref => \$text, %$config);
}

1;

__END__