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__ =head1 NAME Template::Plugin::DisableForm - TT plugin for HTML::DisableForm =head1 SYNOPSIS my $template = Template->new; $template->process(\$html, { ... }); # in your template [% USE DisableForm %] [% disable_form %]
[% END %] =head1 DESCRIPTION TT plugin for HTML::DisableForm, which allows you to make your HTML form controlls disabled. =head1 METHODS =head2 init Intenal method for TT plugin =head2 filter Intenal method for TT plugin =head1 AUTHOR Naoya Ito, C<< >> =head1 COPYRIGHT & LICENSE Copyright 2006 Naoya Ito, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut