CGI::Application::Plugin::FillInForm - integrate with HTML::FillInForm
use CGI::Application::Plugin::FillInForm (qw/fill_form/); my $t = $self->load_tmpl('farm.html'); $t->param( organic => 'less_pesticides' ); return $self->fill_form( \$t->output );
This plugin provides a mix-in method to make using HTML::FillInForm more convenient.
# fill an HTML form with data in a hashref or from an object with with a param() method my $filled_html = $self->fill_form($html, $data); # ...or fill from a list of data sources # (each item in the list can be either a hashref or an object) my $filled_html = $self->fill_form($html, [$user, $group, $query]); # ...or default to getting data from $self->query() my $filled_html = $self->fill_form($html); # extra fields will be passed on through: my $filled_html = $self->fill_form($html, undef, fill_password => 0 );
This method provides an easier syntax for calling HTML::FillInForm, and an intelligent default of using $self->query() as the default data source.
By default, the mode param (usually 'rm') of every data source will be ignored. This prevents accidently clobbering your run mode for the next page, which may be stored in a hidden field.
$html must be a scalarref, or a reference to a scalarref. $filled_html will be a reference to a string.
Because this method only loads HTML::FillInForm if it's needed, it should be reasonable to load it in a base class and always have it available:
use CGI::Application::Plugin::FillInForm (qw/fill_form/);
Cees Hek published the first draft on the CGI::App wiki Mark Stosberg, C<< <email@example.com> >> polished it for release. Michael Graham, C<< <firstname.lastname@example.org> >> added tests and some new features. The module is now co-maintained by Mark and Michael.
Please report any bugs or feature requests to
email@example.com, or through the web interface at http://rt.cpan.org. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
Patches, questions and feedback are welcome. This project is managed using the darcs source control system ( http://www.darcs.net/ ). My darcs archive is here: http://mark.stosberg.com/darcs_hive/cap-fif/
Copyright 2005 Mark Stosberg, All Rights Reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.