/usr/share/perl5/Catalyst/Helper/HTML/FormFu.pm is in libcatalyst-controller-html-formfu-perl 2.02-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 | package Catalyst::Helper::HTML::FormFu;
use strict;
use warnings;
our $VERSION = '2.02'; # VERSION
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 VERSION
version 2.02
=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
|