package Catalyst::Helper::HTML::FormFu;
{
$Catalyst::Helper::HTML::FormFu::VERSION = '1.00';
}
use strict;
use warnings;
use File::Spec;
use HTML::FormFu::Deploy;
use Carp qw/ croak /;
sub mk_stuff {
my ( $self, $helper, $dir ) = @_;
my @files = HTML::FormFu::Deploy::file_list();
my $form_dir = File::Spec->catdir( $helper->{base}, 'root',
( defined $dir ? $dir : 'formfu' ) );
$helper->mk_dir($form_dir) unless -d $form_dir;
for my $filename (@files) {
my $path = File::Spec->catfile( $form_dir, $filename );
my $data = HTML::FormFu::Deploy::file_source($filename);
$helper->mk_file( $path, $data );
}
return;
}
1;
__END__
=head1 NAME
Catalyst::Helper::HTML::FormFu - Helper to deploy HTML::FormFu template files.
=head1 SYNOPSIS
script/myapp_create.pl HTML::FormFu
=head1 DESCRIPTION
As of version 0.02000, L<HTML::FormFu> doesn't use the TT template files by
default - it uses in internal rendering engine.
If you don't want to customise the generated markup, you don't need to use
L<Catalyst::Helper::HTML::FormFu> at all.
If you want to customise the generated markup, you'll need a
local copy of the template files. To create the files in the default
C<root/formfu> directory, run:
script/myapp_create.pl HTML::FormFu
To create the files in a different subdirectory of C<root>, pass the path
as an argument. The following example would create the template files into
the directory C<root/forms>.
script/myapp_create.pl HTML::FormFu forms
You'll also need to tell HTML::FormFu to use the TT renderer, this can be
achieved with L<Catalyst::Controller::HTML::FormFu>, with the following
Catalyst application YAML config:
---
'Controller::HTML::FormFu':
constructor:
render_method: tt
=head1 SUPPORT
IRC:
Join #catalyst on irc.perl.org.
Mailing Lists:
http://lists.rawmode.org/cgi-bin/mailman/listinfo/html-widget
=head1 SEE ALSO
L<HTML::FormFu>, L<Catalyst::Helper>
=head1 AUTHOR
Carl Franks, C<cfranks@cpan.org>
=head1 LICENSE
This library is free software . You can redistribute it and/or modify
it under the same terms as perl itself.
=cut