HTML-FillInForm-2.22/ 000755 000765 000024 00000000000 14123725062 015463 5 ustar 00olafalders staff 000000 000000 HTML-FillInForm-2.22/perltidyrc 000644 000765 000024 00000000325 14123725062 017567 0 ustar 00olafalders staff 000000 000000 --blank-lines-before-packages=0
--iterations=2
--no-outdent-long-comments
-bar
-boc
-ci=4
-i=4
-l=78
-nolq
-se
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
HTML-FillInForm-2.22/perlcriticrc 000644 000765 000024 00000005000 14123725062 020066 0 ustar 00olafalders staff 000000 000000 severity = 3
verbose = 11
theme = core + pbp + bugs + maintenance + cosmetic + complexity + security + tests + moose
program-extensions = pl psgi t
exclude = Subroutines::ProhibitCallsToUndeclaredSubs
[BuiltinFunctions::ProhibitStringySplit]
severity = 3
[CodeLayout::RequireTrailingCommas]
severity = 3
[ControlStructures::ProhibitCStyleForLoops]
severity = 3
[Documentation::RequirePackageMatchesPodName]
severity = 3
[Freenode::WhileDiamondDefaultAssignment]
set_themes = core
[InputOutput::RequireCheckedSyscalls]
functions = :builtins
exclude_functions = sleep
severity = 3
[Moose::RequireCleanNamespace]
modules = Moose Moose::Role MooseX::Role::Parameterized Moose::Util::TypeConstraints
cleaners = namespace::autoclean
[NamingConventions::Capitalization]
package_exemptions = [A-Z]\w+|main
file_lexical_variables = [A-Z]\w+|[^A-Z]+
global_variables = :starts_with_upper
scoped_lexical_variables = [A-Z]\w+|[^A-Z]+
severity = 3
# Given our code base, leaving this at 5 would be a huge pain
[Subroutines::ProhibitManyArgs]
max_arguments = 10
[RegularExpressions::ProhibitComplexRegexes]
max_characters = 200
[RegularExpressions::ProhibitUnusualDelimiters]
severity = 3
[Subroutines::ProhibitUnusedPrivateSubroutines]
private_name_regex = _(?!build)\w+
[TestingAndDebugging::ProhibitNoWarnings]
allow = redefine
[ValuesAndExpressions::ProhibitEmptyQuotes]
severity = 3
[ValuesAndExpressions::ProhibitInterpolationOfLiterals]
severity = 3
[ValuesAndExpressions::RequireUpperCaseHeredocTerminator]
severity = 3
[Variables::ProhibitPackageVars]
add_packages = Test::Builder
[-ControlStructures::ProhibitCascadingIfElse]
[-ErrorHandling::RequireCarping]
[-InputOutput::RequireBriefOpen]
[-ValuesAndExpressions::ProhibitConstantPragma]
# No need for /xsm everywhere
[-RegularExpressions::RequireDotMatchAnything]
[-RegularExpressions::RequireExtendedFormatting]
[-RegularExpressions::RequireLineBoundaryMatching]
# by concensus in standup 2015-05-12 we decided to allow return undef
# this is mainly so bar can be written to return undef so that
# foo( bar => bar(), bazz => baz() ) won't cause problems
[-Subroutines::ProhibitExplicitReturnUndef]
# This incorrectly thinks signatures are prototypes.
[-Subroutines::ProhibitSubroutinePrototypes]
# http://stackoverflow.com/questions/2275317/why-does-perlcritic-dislike-using-shift-to-populate-subroutine-variables
[-Subroutines::RequireArgUnpacking]
[-Subroutines::RequireFinalReturn]
# "use v5.14" is more readable than "use 5.014"
[-ValuesAndExpressions::ProhibitVersionStrings]
HTML-FillInForm-2.22/README 000644 000765 000024 00000002455 14123725062 016351 0 ustar 00olafalders staff 000000 000000 This module automatically inserts data from a previous HTML form into
the HTML input and select tags. It is a subclass of HTML::Parser and
uses it to parse the HTML and insert the values into the form tags.
One useful application is after a user submits an HTML form without
filling out required field. HTML::FillInForm can be used to redisplay
the HTML form with all the form elements containing the submitted info.
Please note that this module requires HTML::Parser 3.26 or greater.
To install this module, use CPAN, for example:
cpan HTML::FillInForm
To instead build this software from source, run:
perl Makefile.PL
make
make test
make install
After installing, you can read the documentation for this module via:
perldoc HTML::FillInForm
HTML::FillInForm is installed by default by several web hosting providers,
including pair.com - see
http://www.pair.com/pair/support/library/serverconfig/perlmods.html
It is also available as a package for some Linux distribution, including Mandrake.
See:
http://rpmfind.net/linux/RPM/cooker/cooker/i586/Mandrake/RPMS/perl-HTML-FillInForm-0.29-2mdk.noarch.html
Copyright (c) 2002-2007 Thomas J. Mather, tjmather@maxmind.com
All rights reserved. This package is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
HTML-FillInForm-2.22/cpanfile 000644 000765 000024 00000002760 14123725062 017174 0 ustar 00olafalders staff 000000 000000 # This file is generated by Dist::Zilla::Plugin::CPANFile v6.024
# Do not edit this file directly. To change prereqs, edit the `dist.ini` file.
requires "Carp" => "0";
requires "integer" => "0";
requires "perl" => "5.006";
requires "strict" => "0";
requires "vars" => "0";
on 'test' => sub {
requires "CGI" => "0";
requires "ExtUtils::MakeMaker" => "0";
requires "File::Spec" => "0";
requires "HTML::TokeParser" => "0";
requires "Test" => "0";
requires "Test::More" => "0.96";
requires "perl" => "5.006";
requires "warnings" => "0";
};
on 'test' => sub {
recommends "CPAN::Meta" => "2.120900";
};
on 'configure' => sub {
requires "ExtUtils::MakeMaker" => "0";
requires "perl" => "5.006";
};
on 'develop' => sub {
requires "Code::TidyAll" => "0.71";
requires "Code::TidyAll::Plugin::SortLines::Naturally" => "0.000003";
requires "Code::TidyAll::Plugin::Test::Vars" => "0.04";
requires "Code::TidyAll::Plugin::UniqueLines" => "0.000003";
requires "Parallel::ForkManager" => "1.19";
requires "Perl::Critic" => "1.132";
requires "Perl::Tidy" => "20180220";
requires "Pod::Wordlist" => "0";
requires "Test::Mojibake" => "0";
requires "Test::More" => "0";
requires "Test::Pod" => "1.41";
requires "Test::Portability::Files" => "0";
requires "Test::Spelling" => "0.12";
requires "Test::Vars" => "0.014";
requires "Test::Version" => "1";
requires "warnings" => "0";
};
on 'develop' => sub {
recommends "Dist::Zilla::PluginBundle::Git::VersionManager" => "0.007";
};
HTML-FillInForm-2.22/Changes 000644 000765 000024 00000020051 14123725062 016754 0 ustar 00olafalders staff 000000 000000 Revision history for HTML-FillInForm
2.22 2021-09-25 23:00:59Z
- Patch bug #100926, compatibility with CGI 4 (with fallback). (GH#9) (thrig)
- Don't call _get_param(undef) for box without name attribute
(GH#10) (Chase Venters)
- Whoops, speling error. (GH#8) (thrig)
- Better indicate LICENSE details, README tweaks, more module requires (GH#7)
(thrig)
- rt #98012 - Missing dependency CGI (GH#6) (Martin McGrath)
- repository cpan metadata added (GH#5) (David Steinbrunner)
- typo fix (GH#4) (David Steinbrunner)
- Converted repo to Dist::Zilla
2.21 - August 14th, 2014
- Declare CGI.pm as a testing dependency (RT #98012, thanks to Martin McGrath)
2.20 - August 10th, 2013
- Updated to support HTML5 (RT #75933, thanks to charsbar)
2.11 - June 3rd, 2013
- Updated tests so that they pass with Perl 5.18 (Mark Stosberg)
2.1 - August 29th, 2011
- Fixed disable_fields option (#52667 Dirk Braun, Goro Fuji)
- Add an option to clear absent checkboxes (#44101 Alex Kapranoff)
- Fix incorrectly multiple escaped data in list context (#34081 Miika
Pekkarinen)
- Allow FIF to process the new
Copyright (C) 19yy
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 1, or (at your option)
any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
The hypothetical commands `show w' and `show c' should show the
appropriate parts of the General Public License. Of course, the
commands you use may be called something other than `show w' and `show
c'; they could even be mouse-clicks or menu items--whatever suits your
program.
You should also get your employer (if you work as a programmer) or your
school, if any, to sign a "copyright disclaimer" for the program, if
necessary. Here a sample; alter the names:
Yoyodyne, Inc., hereby disclaims all copyright interest in the
program `Gnomovision' (a program to direct compilers to make passes
at assemblers) written by James Hacker.
, 1 April 1989
Ty Coon, President of Vice
That's all there is to it!
--- The Artistic License 1.0 ---
This software is Copyright (c) 2000 by TJ Mather, tjmather@maxmind.com.
This is free software, licensed under:
The Artistic License 1.0
The Artistic License
Preamble
The intent of this document is to state the conditions under which a Package
may be copied, such that the Copyright Holder maintains some semblance of
artistic control over the development of the package, while giving the users of
the package the right to use and distribute the Package in a more-or-less
customary fashion, plus the right to make reasonable modifications.
Definitions:
- "Package" refers to the collection of files distributed by the Copyright
Holder, and derivatives of that collection of files created through
textual modification.
- "Standard Version" refers to such a Package if it has not been modified,
or has been modified in accordance with the wishes of the Copyright
Holder.
- "Copyright Holder" is whoever is named in the copyright or copyrights for
the package.
- "You" is you, if you're thinking about copying or distributing this Package.
- "Reasonable copying fee" is whatever you can justify on the basis of media
cost, duplication charges, time of people involved, and so on. (You will
not be required to justify it to the Copyright Holder, but only to the
computing community at large as a market that must bear the fee.)
- "Freely Available" means that no fee is charged for the item itself, though
there may be fees involved in handling the item. It also means that
recipients of the item may redistribute it under the same conditions they
received it.
1. You may make and give away verbatim copies of the source form of the
Standard Version of this Package without restriction, provided that you
duplicate all of the original copyright notices and associated disclaimers.
2. You may apply bug fixes, portability fixes and other modifications derived
from the Public Domain or from the Copyright Holder. A Package modified in such
a way shall still be considered the Standard Version.
3. You may otherwise modify your copy of this Package in any way, provided that
you insert a prominent notice in each changed file stating how and when you
changed that file, and provided that you do at least ONE of the following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or an
equivalent medium, or placing the modifications on a major archive site
such as ftp.uu.net, or by allowing the Copyright Holder to include your
modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
c) rename any non-standard executables so the names do not conflict with
standard executables, which must also be provided, and provide a separate
manual page for each non-standard executable that clearly documents how it
differs from the Standard Version.
d) make other distribution arrangements with the Copyright Holder.
4. You may distribute the programs of this Package in object code or executable
form, provided that you do at least ONE of the following:
a) distribute a Standard Version of the executables and library files,
together with instructions (in the manual page or equivalent) on where to
get the Standard Version.
b) accompany the distribution with the machine-readable source of the Package
with your modifications.
c) accompany any non-standard executables with their corresponding Standard
Version executables, giving the non-standard executables non-standard
names, and clearly documenting the differences in manual pages (or
equivalent), together with instructions on where to get the Standard
Version.
d) make other distribution arrangements with the Copyright Holder.
5. You may charge a reasonable copying fee for any distribution of this
Package. You may charge any fee you choose for support of this Package. You
may not charge a fee for this Package itself. However, you may distribute this
Package in aggregate with other (possibly commercial) programs as part of a
larger (possibly commercial) software distribution provided that you do not
advertise this Package as a product of your own.
6. The scripts and library files supplied as input to or produced as output
from the programs of this Package do not automatically fall under the copyright
of this Package, but belong to whomever generated them, and may be sold
commercially, and may be aggregated with this Package.
7. C or perl subroutines supplied by you and linked into this Package shall not
be considered part of this Package.
8. The name of the Copyright Holder may not be used to endorse or promote
products derived from this software without specific prior written permission.
9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
The End
HTML-FillInForm-2.22/t/ 000755 000765 000024 00000000000 14123725062 015726 5 ustar 00olafalders staff 000000 000000 HTML-FillInForm-2.22/xt/ 000755 000765 000024 00000000000 14123725062 016116 5 ustar 00olafalders staff 000000 000000 HTML-FillInForm-2.22/META.yml 000644 000765 000024 00000041347 14123725062 016745 0 ustar 00olafalders staff 000000 000000 ---
abstract: 'Populates HTML Forms with data.'
author:
- 'TJ Mather, tjmather@maxmind.com'
build_requires:
CGI: '0'
ExtUtils::MakeMaker: '0'
File::Spec: '0'
HTML::TokeParser: '0'
Test: '0'
Test::More: '0.96'
perl: '5.006'
warnings: '0'
configure_requires:
ExtUtils::MakeMaker: '0'
perl: '5.006'
dynamic_config: 0
generated_by: 'Dist::Zilla version 6.024, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: '1.4'
name: HTML-FillInForm
no_index:
directory:
- examples
- t
- xt
requires:
Carp: '0'
integer: '0'
perl: '5.006'
strict: '0'
vars: '0'
resources:
bugtracker: https://github.com/oalders/HTML-FillInForm/issues
homepage: https://github.com/oalders/HTML-FillInForm
repository: https://github.com/oalders/HTML-FillInForm.git
version: '2.22'
x_Dist_Zilla:
perl:
version: '5.034000'
plugins:
-
class: Dist::Zilla::Plugin::PromptIfStale
config:
Dist::Zilla::Plugin::PromptIfStale:
check_all_plugins: 0
check_all_prereqs: 0
modules:
- Dist::Zilla::PluginBundle::Author::OALDERS
phase: build
run_under_travis: 0
skip: []
name: '@Author::OALDERS/stale modules, build'
version: '0.057'
-
class: Dist::Zilla::Plugin::PromptIfStale
config:
Dist::Zilla::Plugin::PromptIfStale:
check_all_plugins: 1
check_all_prereqs: 1
modules: []
phase: release
run_under_travis: 0
skip: []
name: '@Author::OALDERS/stale modules, release'
version: '0.057'
-
class: Dist::Zilla::Plugin::OALDERS::TidyAll
name: '@Author::OALDERS/OALDERS::TidyAll'
version: '0.000029'
-
class: Dist::Zilla::Plugin::AutoPrereqs
name: '@Author::OALDERS/AutoPrereqs'
version: '6.024'
-
class: Dist::Zilla::Plugin::CheckChangesHasContent
name: '@Author::OALDERS/CheckChangesHasContent'
version: '0.011'
-
class: Dist::Zilla::Plugin::MakeMaker
config:
Dist::Zilla::Role::TestRunner:
default_jobs: '1'
name: '@Author::OALDERS/MakeMaker'
version: '6.024'
-
class: Dist::Zilla::Plugin::CPANFile
name: '@Author::OALDERS/CPANFile'
version: '6.024'
-
class: Dist::Zilla::Plugin::ContributorsFile
name: '@Author::OALDERS/ContributorsFile'
version: 0.3.0
-
class: Dist::Zilla::Plugin::MetaJSON
name: '@Author::OALDERS/MetaJSON'
version: '6.024'
-
class: Dist::Zilla::Plugin::MetaYAML
name: '@Author::OALDERS/MetaYAML'
version: '6.024'
-
class: Dist::Zilla::Plugin::Manifest
name: '@Author::OALDERS/Manifest'
version: '6.024'
-
class: Dist::Zilla::Plugin::MetaNoIndex
name: '@Author::OALDERS/MetaNoIndex'
version: '6.024'
-
class: Dist::Zilla::Plugin::MetaConfig
name: '@Author::OALDERS/MetaConfig'
version: '6.024'
-
class: Dist::Zilla::Plugin::MetaResources
name: '@Author::OALDERS/MetaResources'
version: '6.024'
-
class: Dist::Zilla::Plugin::License
name: '@Author::OALDERS/License'
version: '6.024'
-
class: Dist::Zilla::Plugin::InstallGuide
config:
Dist::Zilla::Role::ModuleMetadata:
Module::Metadata: '1.000037'
version: '0.006'
name: '@Author::OALDERS/InstallGuide'
version: '1.200014'
-
class: Dist::Zilla::Plugin::Prereqs
config:
Dist::Zilla::Plugin::Prereqs:
phase: develop
type: requires
name: '@Author::OALDERS/Modules for use with tidyall'
version: '6.024'
-
class: Dist::Zilla::Plugin::ExecDir
name: '@Author::OALDERS/ExecDir'
version: '6.024'
-
class: Dist::Zilla::Plugin::Test::PodSpelling
config:
Dist::Zilla::Plugin::Test::PodSpelling:
directories:
- bin
- lib
spell_cmd: ''
stopwords:
- Alders
- "Alders'"
- Atsushi
- Embperl
- Kato
- checkboxes
- html
- masonhq
- redisplay
- scalarref
- xml
wordlist: Pod::Wordlist
name: '@Author::OALDERS/Test::PodSpelling'
version: '2.007005'
-
class: Dist::Zilla::Plugin::MojibakeTests
name: '@Author::OALDERS/MojibakeTests'
version: '0.8'
-
class: Dist::Zilla::Plugin::PodSyntaxTests
name: '@Author::OALDERS/PodSyntaxTests'
version: '6.024'
-
class: Dist::Zilla::Plugin::Test::Portability
config:
Dist::Zilla::Plugin::Test::Portability:
options: ''
name: '@Author::OALDERS/Test::Portability'
version: '2.001000'
-
class: Dist::Zilla::Plugin::TestRelease
name: '@Author::OALDERS/TestRelease'
version: '6.024'
-
class: Dist::Zilla::Plugin::Test::ReportPrereqs
name: '@Author::OALDERS/Test::ReportPrereqs'
version: '0.028'
-
class: Dist::Zilla::Plugin::Test::Version
name: '@Author::OALDERS/Test::Version'
version: '1.09'
-
class: Dist::Zilla::Plugin::RunExtraTests
config:
Dist::Zilla::Role::TestRunner:
default_jobs: '1'
name: '@Author::OALDERS/RunExtraTests'
version: '0.029'
-
class: Dist::Zilla::Plugin::MinimumPerl
name: '@Author::OALDERS/MinimumPerl'
version: '1.006'
-
class: Dist::Zilla::Plugin::PodWeaver
config:
Dist::Zilla::Plugin::PodWeaver:
finder:
- ':InstallModules'
- ':ExecFiles'
plugins:
-
class: Pod::Weaver::Plugin::EnsurePod5
name: '@CorePrep/EnsurePod5'
version: '4.018'
-
class: Pod::Weaver::Plugin::H1Nester
name: '@CorePrep/H1Nester'
version: '4.018'
-
class: Pod::Weaver::Plugin::SingleEncoding
name: '@Default/SingleEncoding'
version: '4.018'
-
class: Pod::Weaver::Section::Name
name: '@Default/Name'
version: '4.018'
-
class: Pod::Weaver::Section::Version
name: '@Default/Version'
version: '4.018'
-
class: Pod::Weaver::Section::Region
name: '@Default/prelude'
version: '4.018'
-
class: Pod::Weaver::Section::Generic
name: SYNOPSIS
version: '4.018'
-
class: Pod::Weaver::Section::Generic
name: DESCRIPTION
version: '4.018'
-
class: Pod::Weaver::Section::Generic
name: OVERVIEW
version: '4.018'
-
class: Pod::Weaver::Section::Collect
name: ATTRIBUTES
version: '4.018'
-
class: Pod::Weaver::Section::Collect
name: METHODS
version: '4.018'
-
class: Pod::Weaver::Section::Collect
name: FUNCTIONS
version: '4.018'
-
class: Pod::Weaver::Section::Leftovers
name: '@Default/Leftovers'
version: '4.018'
-
class: Pod::Weaver::Section::Region
name: '@Default/postlude'
version: '4.018'
-
class: Pod::Weaver::Section::Authors
name: '@Default/Authors'
version: '4.018'
-
class: Pod::Weaver::Section::Legal
name: '@Default/Legal'
version: '4.018'
name: '@Author::OALDERS/PodWeaver'
version: '4.009'
-
class: Dist::Zilla::Plugin::PruneCruft
name: '@Author::OALDERS/PruneCruft'
version: '6.024'
-
class: Dist::Zilla::Plugin::CopyFilesFromBuild
name: '@Author::OALDERS/CopyFilesFromBuild'
version: '0.170880'
-
class: Dist::Zilla::Plugin::GithubMeta
name: '@Author::OALDERS/GithubMeta'
version: '0.58'
-
class: Dist::Zilla::Plugin::Git::GatherDir
config:
Dist::Zilla::Plugin::GatherDir:
exclude_filename:
- Install
- LICENSE
- META.json
- Makefile.PL
- README.md
- cpanfile
exclude_match: []
follow_symlinks: 0
include_dotfiles: 0
prefix: ''
prune_directory: []
root: .
Dist::Zilla::Plugin::Git::GatherDir:
include_untracked: 0
name: '@Author::OALDERS/Git::GatherDir'
version: '2.048'
-
class: Dist::Zilla::Plugin::CopyFilesFromRelease
config:
Dist::Zilla::Plugin::CopyFilesFromRelease:
filename:
- Install
match: []
name: '@Author::OALDERS/CopyFilesFromRelease'
version: '0.007'
-
class: Dist::Zilla::Plugin::Git::Check
config:
Dist::Zilla::Plugin::Git::Check:
untracked_files: die
Dist::Zilla::Role::Git::DirtyFiles:
allow_dirty:
- Changes
- Install
- LICENSE
- META.json
- Makefile.PL
- README.md
- cpanfile
- dist.ini
allow_dirty_match: []
changelog: Changes
Dist::Zilla::Role::Git::Repo:
git_version: 2.33.0
repo_root: .
name: '@Author::OALDERS/Git::Check'
version: '2.048'
-
class: Dist::Zilla::Plugin::Git::Contributors
config:
Dist::Zilla::Plugin::Git::Contributors:
git_version: 2.33.0
include_authors: 0
include_releaser: 1
order_by: name
paths: []
name: '@Author::OALDERS/Git::Contributors'
version: '0.036'
-
class: Dist::Zilla::Plugin::ReadmeAnyFromPod
config:
Dist::Zilla::Role::FileWatcher:
version: '0.006'
name: '@Author::OALDERS/ReadmeMdInBuild'
version: '0.163250'
-
class: Dist::Zilla::Plugin::StaticInstall
config:
Dist::Zilla::Plugin::StaticInstall:
dry_run: 0
mode: on
name: '@Author::OALDERS/StaticInstall'
version: '0.012'
-
class: Dist::Zilla::Plugin::ShareDir
name: '@Author::OALDERS/ShareDir'
version: '6.024'
-
class: Dist::Zilla::Plugin::CheckIssues
name: '@Author::OALDERS/CheckIssues'
version: '0.011'
-
class: Dist::Zilla::Plugin::ConfirmRelease
name: '@Author::OALDERS/ConfirmRelease'
version: '6.024'
-
class: Dist::Zilla::Plugin::UploadToCPAN
name: '@Author::OALDERS/UploadToCPAN'
version: '6.024'
-
class: Dist::Zilla::Plugin::Prereqs
config:
Dist::Zilla::Plugin::Prereqs:
phase: develop
type: recommends
name: '@Author::OALDERS/@Git::VersionManager/pluginbundle version'
version: '6.024'
-
class: Dist::Zilla::Plugin::RewriteVersion::Transitional
config:
Dist::Zilla::Plugin::RewriteVersion:
add_tarball_name: 0
finders:
- ':ExecFiles'
- ':InstallModules'
global: 0
skip_version_provider: 0
Dist::Zilla::Plugin::RewriteVersion::Transitional: {}
name: '@Author::OALDERS/@Git::VersionManager/RewriteVersion::Transitional'
version: '0.009'
-
class: Dist::Zilla::Plugin::MetaProvides::Update
name: '@Author::OALDERS/@Git::VersionManager/MetaProvides::Update'
version: '0.007'
-
class: Dist::Zilla::Plugin::CopyFilesFromRelease
config:
Dist::Zilla::Plugin::CopyFilesFromRelease:
filename:
- Changes
match: []
name: '@Author::OALDERS/@Git::VersionManager/CopyFilesFromRelease'
version: '0.007'
-
class: Dist::Zilla::Plugin::Git::Commit
config:
Dist::Zilla::Plugin::Git::Commit:
add_files_in: []
commit_msg: v%V%n%n%c
signoff: 0
Dist::Zilla::Role::Git::DirtyFiles:
allow_dirty:
- Changes
- Install
- LICENSE
- META.json
- Makefile.PL
- README.md
- cpanfile
- dist.ini
allow_dirty_match: []
changelog: Changes
Dist::Zilla::Role::Git::Repo:
git_version: 2.33.0
repo_root: .
Dist::Zilla::Role::Git::StringFormatter:
time_zone: local
name: '@Author::OALDERS/@Git::VersionManager/release snapshot'
version: '2.048'
-
class: Dist::Zilla::Plugin::Git::Tag
config:
Dist::Zilla::Plugin::Git::Tag:
branch: ~
changelog: Changes
signed: 0
tag: v2.22
tag_format: v%V
tag_message: v%V
Dist::Zilla::Role::Git::Repo:
git_version: 2.33.0
repo_root: .
Dist::Zilla::Role::Git::StringFormatter:
time_zone: local
name: '@Author::OALDERS/@Git::VersionManager/Git::Tag'
version: '2.048'
-
class: Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional
config:
Dist::Zilla::Plugin::BumpVersionAfterRelease:
finders:
- ':ExecFiles'
- ':InstallModules'
global: 0
munge_makefile_pl: 1
Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional: {}
name: '@Author::OALDERS/@Git::VersionManager/BumpVersionAfterRelease::Transitional'
version: '0.009'
-
class: Dist::Zilla::Plugin::NextRelease
name: '@Author::OALDERS/@Git::VersionManager/NextRelease'
version: '6.024'
-
class: Dist::Zilla::Plugin::Git::Commit
config:
Dist::Zilla::Plugin::Git::Commit:
add_files_in: []
commit_msg: 'increment $VERSION after %v release'
signoff: 0
Dist::Zilla::Role::Git::DirtyFiles:
allow_dirty:
- Build.PL
- Changes
- Makefile.PL
allow_dirty_match:
- (?^:^lib/.*\.pm$)
changelog: Changes
Dist::Zilla::Role::Git::Repo:
git_version: 2.33.0
repo_root: .
Dist::Zilla::Role::Git::StringFormatter:
time_zone: local
name: '@Author::OALDERS/@Git::VersionManager/post-release commit'
version: '2.048'
-
class: Dist::Zilla::Plugin::Git::Push
config:
Dist::Zilla::Plugin::Git::Push:
push_to:
- origin
remotes_must_exist: 1
Dist::Zilla::Role::Git::Repo:
git_version: 2.33.0
repo_root: .
name: '@Author::OALDERS/Git::Push'
version: '2.048'
-
class: Dist::Zilla::Plugin::Prereqs
config:
Dist::Zilla::Plugin::Prereqs:
phase: test
type: requires
name: TestRequires
version: '6.024'
-
class: Dist::Zilla::Plugin::GitHubREADME::Badge
name: GitHubREADME::Badge
version: '0.33'
-
class: Dist::Zilla::Plugin::FinderCode
name: ':InstallModules'
version: '6.024'
-
class: Dist::Zilla::Plugin::FinderCode
name: ':IncModules'
version: '6.024'
-
class: Dist::Zilla::Plugin::FinderCode
name: ':TestFiles'
version: '6.024'
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ExtraTestFiles'
version: '6.024'
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ExecFiles'
version: '6.024'
-
class: Dist::Zilla::Plugin::FinderCode
name: ':PerlExecFiles'
version: '6.024'
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ShareFiles'
version: '6.024'
-
class: Dist::Zilla::Plugin::FinderCode
name: ':MainModule'
version: '6.024'
-
class: Dist::Zilla::Plugin::FinderCode
name: ':AllFiles'
version: '6.024'
-
class: Dist::Zilla::Plugin::FinderCode
name: ':NoFiles'
version: '6.024'
zilla:
class: Dist::Zilla::Dist::Builder
config:
is_trial: '0'
version: '6.024'
x_contributors:
- 'Chase Venters '
- 'David Steinbrunner '
- 'Jeremy Mates '
- 'Kenichi Ishigaki '
- 'Mark Stosberg '
- 'Mark Stosberg '
- 'Mark Stosberg '
- 'Martin McGrath '
- 'Olaf Alders '
- 'Olaf Alders '
x_generated_by_perl: v5.34.0
x_serialization_backend: 'YAML::Tiny version 1.73'
x_spdx_expression: 'Artistic-1.0-Perl OR GPL-1.0-or-later'
x_static_install: 1
HTML-FillInForm-2.22/CONTRIBUTORS 000644 000765 000024 00000000715 14123725062 017346 0 ustar 00olafalders staff 000000 000000
# HTML-FILLINFORM CONTRIBUTORS #
This is the (likely incomplete) list of people who have helped
make this distribution what it is, either via code contributions,
patches, bug reports, help with troubleshooting, etc. A huge
'thank you' to all of them.
* Chase Venters
* David Steinbrunner
* Jeremy Mates
* Kenichi Ishigaki
* Mark Stosberg
* Mark Stosberg
* Mark Stosberg
* Martin McGrath
* Olaf Alders
* Olaf Alders
HTML-FillInForm-2.22/META.json 000644 000765 000024 00000064415 14123725062 017116 0 ustar 00olafalders staff 000000 000000 {
"abstract" : "Populates HTML Forms with data.",
"author" : [
"TJ Mather, tjmather@maxmind.com"
],
"dynamic_config" : 0,
"generated_by" : "Dist::Zilla version 6.024, CPAN::Meta::Converter version 2.150010",
"license" : [
"perl_5"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
"version" : 2
},
"name" : "HTML-FillInForm",
"no_index" : {
"directory" : [
"examples",
"t",
"xt"
]
},
"prereqs" : {
"configure" : {
"requires" : {
"ExtUtils::MakeMaker" : "0",
"perl" : "5.006"
}
},
"develop" : {
"recommends" : {
"Dist::Zilla::PluginBundle::Git::VersionManager" : "0.007"
},
"requires" : {
"Code::TidyAll" : "0.71",
"Code::TidyAll::Plugin::SortLines::Naturally" : "0.000003",
"Code::TidyAll::Plugin::Test::Vars" : "0.04",
"Code::TidyAll::Plugin::UniqueLines" : "0.000003",
"Parallel::ForkManager" : "1.19",
"Perl::Critic" : "1.132",
"Perl::Tidy" : "20180220",
"Pod::Wordlist" : "0",
"Test::Mojibake" : "0",
"Test::More" : "0",
"Test::Pod" : "1.41",
"Test::Portability::Files" : "0",
"Test::Spelling" : "0.12",
"Test::Vars" : "0.014",
"Test::Version" : "1",
"warnings" : "0"
}
},
"runtime" : {
"requires" : {
"Carp" : "0",
"integer" : "0",
"perl" : "5.006",
"strict" : "0",
"vars" : "0"
}
},
"test" : {
"recommends" : {
"CPAN::Meta" : "2.120900"
},
"requires" : {
"CGI" : "0",
"ExtUtils::MakeMaker" : "0",
"File::Spec" : "0",
"HTML::TokeParser" : "0",
"Test" : "0",
"Test::More" : "0.96",
"perl" : "5.006",
"warnings" : "0"
}
}
},
"release_status" : "stable",
"resources" : {
"bugtracker" : {
"web" : "https://github.com/oalders/HTML-FillInForm/issues"
},
"homepage" : "https://github.com/oalders/HTML-FillInForm",
"repository" : {
"type" : "git",
"url" : "https://github.com/oalders/HTML-FillInForm.git",
"web" : "https://github.com/oalders/HTML-FillInForm"
}
},
"version" : "2.22",
"x_Dist_Zilla" : {
"perl" : {
"version" : "5.034000"
},
"plugins" : [
{
"class" : "Dist::Zilla::Plugin::PromptIfStale",
"config" : {
"Dist::Zilla::Plugin::PromptIfStale" : {
"check_all_plugins" : 0,
"check_all_prereqs" : 0,
"modules" : [
"Dist::Zilla::PluginBundle::Author::OALDERS"
],
"phase" : "build",
"run_under_travis" : 0,
"skip" : []
}
},
"name" : "@Author::OALDERS/stale modules, build",
"version" : "0.057"
},
{
"class" : "Dist::Zilla::Plugin::PromptIfStale",
"config" : {
"Dist::Zilla::Plugin::PromptIfStale" : {
"check_all_plugins" : 1,
"check_all_prereqs" : 1,
"modules" : [],
"phase" : "release",
"run_under_travis" : 0,
"skip" : []
}
},
"name" : "@Author::OALDERS/stale modules, release",
"version" : "0.057"
},
{
"class" : "Dist::Zilla::Plugin::OALDERS::TidyAll",
"name" : "@Author::OALDERS/OALDERS::TidyAll",
"version" : "0.000029"
},
{
"class" : "Dist::Zilla::Plugin::AutoPrereqs",
"name" : "@Author::OALDERS/AutoPrereqs",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::CheckChangesHasContent",
"name" : "@Author::OALDERS/CheckChangesHasContent",
"version" : "0.011"
},
{
"class" : "Dist::Zilla::Plugin::MakeMaker",
"config" : {
"Dist::Zilla::Role::TestRunner" : {
"default_jobs" : "1"
}
},
"name" : "@Author::OALDERS/MakeMaker",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::CPANFile",
"name" : "@Author::OALDERS/CPANFile",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::ContributorsFile",
"name" : "@Author::OALDERS/ContributorsFile",
"version" : "0.3.0"
},
{
"class" : "Dist::Zilla::Plugin::MetaJSON",
"name" : "@Author::OALDERS/MetaJSON",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::MetaYAML",
"name" : "@Author::OALDERS/MetaYAML",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::Manifest",
"name" : "@Author::OALDERS/Manifest",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::MetaNoIndex",
"name" : "@Author::OALDERS/MetaNoIndex",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::MetaConfig",
"name" : "@Author::OALDERS/MetaConfig",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::MetaResources",
"name" : "@Author::OALDERS/MetaResources",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::License",
"name" : "@Author::OALDERS/License",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::InstallGuide",
"config" : {
"Dist::Zilla::Role::ModuleMetadata" : {
"Module::Metadata" : "1.000037",
"version" : "0.006"
}
},
"name" : "@Author::OALDERS/InstallGuide",
"version" : "1.200014"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
"config" : {
"Dist::Zilla::Plugin::Prereqs" : {
"phase" : "develop",
"type" : "requires"
}
},
"name" : "@Author::OALDERS/Modules for use with tidyall",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::ExecDir",
"name" : "@Author::OALDERS/ExecDir",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::Test::PodSpelling",
"config" : {
"Dist::Zilla::Plugin::Test::PodSpelling" : {
"directories" : [
"bin",
"lib"
],
"spell_cmd" : "",
"stopwords" : [
"Alders",
"Alders'",
"Atsushi",
"Embperl",
"Kato",
"checkboxes",
"html",
"masonhq",
"redisplay",
"scalarref",
"xml"
],
"wordlist" : "Pod::Wordlist"
}
},
"name" : "@Author::OALDERS/Test::PodSpelling",
"version" : "2.007005"
},
{
"class" : "Dist::Zilla::Plugin::MojibakeTests",
"name" : "@Author::OALDERS/MojibakeTests",
"version" : "0.8"
},
{
"class" : "Dist::Zilla::Plugin::PodSyntaxTests",
"name" : "@Author::OALDERS/PodSyntaxTests",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::Test::Portability",
"config" : {
"Dist::Zilla::Plugin::Test::Portability" : {
"options" : ""
}
},
"name" : "@Author::OALDERS/Test::Portability",
"version" : "2.001000"
},
{
"class" : "Dist::Zilla::Plugin::TestRelease",
"name" : "@Author::OALDERS/TestRelease",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::Test::ReportPrereqs",
"name" : "@Author::OALDERS/Test::ReportPrereqs",
"version" : "0.028"
},
{
"class" : "Dist::Zilla::Plugin::Test::Version",
"name" : "@Author::OALDERS/Test::Version",
"version" : "1.09"
},
{
"class" : "Dist::Zilla::Plugin::RunExtraTests",
"config" : {
"Dist::Zilla::Role::TestRunner" : {
"default_jobs" : "1"
}
},
"name" : "@Author::OALDERS/RunExtraTests",
"version" : "0.029"
},
{
"class" : "Dist::Zilla::Plugin::MinimumPerl",
"name" : "@Author::OALDERS/MinimumPerl",
"version" : "1.006"
},
{
"class" : "Dist::Zilla::Plugin::PodWeaver",
"config" : {
"Dist::Zilla::Plugin::PodWeaver" : {
"finder" : [
":InstallModules",
":ExecFiles"
],
"plugins" : [
{
"class" : "Pod::Weaver::Plugin::EnsurePod5",
"name" : "@CorePrep/EnsurePod5",
"version" : "4.018"
},
{
"class" : "Pod::Weaver::Plugin::H1Nester",
"name" : "@CorePrep/H1Nester",
"version" : "4.018"
},
{
"class" : "Pod::Weaver::Plugin::SingleEncoding",
"name" : "@Default/SingleEncoding",
"version" : "4.018"
},
{
"class" : "Pod::Weaver::Section::Name",
"name" : "@Default/Name",
"version" : "4.018"
},
{
"class" : "Pod::Weaver::Section::Version",
"name" : "@Default/Version",
"version" : "4.018"
},
{
"class" : "Pod::Weaver::Section::Region",
"name" : "@Default/prelude",
"version" : "4.018"
},
{
"class" : "Pod::Weaver::Section::Generic",
"name" : "SYNOPSIS",
"version" : "4.018"
},
{
"class" : "Pod::Weaver::Section::Generic",
"name" : "DESCRIPTION",
"version" : "4.018"
},
{
"class" : "Pod::Weaver::Section::Generic",
"name" : "OVERVIEW",
"version" : "4.018"
},
{
"class" : "Pod::Weaver::Section::Collect",
"name" : "ATTRIBUTES",
"version" : "4.018"
},
{
"class" : "Pod::Weaver::Section::Collect",
"name" : "METHODS",
"version" : "4.018"
},
{
"class" : "Pod::Weaver::Section::Collect",
"name" : "FUNCTIONS",
"version" : "4.018"
},
{
"class" : "Pod::Weaver::Section::Leftovers",
"name" : "@Default/Leftovers",
"version" : "4.018"
},
{
"class" : "Pod::Weaver::Section::Region",
"name" : "@Default/postlude",
"version" : "4.018"
},
{
"class" : "Pod::Weaver::Section::Authors",
"name" : "@Default/Authors",
"version" : "4.018"
},
{
"class" : "Pod::Weaver::Section::Legal",
"name" : "@Default/Legal",
"version" : "4.018"
}
]
}
},
"name" : "@Author::OALDERS/PodWeaver",
"version" : "4.009"
},
{
"class" : "Dist::Zilla::Plugin::PruneCruft",
"name" : "@Author::OALDERS/PruneCruft",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::CopyFilesFromBuild",
"name" : "@Author::OALDERS/CopyFilesFromBuild",
"version" : "0.170880"
},
{
"class" : "Dist::Zilla::Plugin::GithubMeta",
"name" : "@Author::OALDERS/GithubMeta",
"version" : "0.58"
},
{
"class" : "Dist::Zilla::Plugin::Git::GatherDir",
"config" : {
"Dist::Zilla::Plugin::GatherDir" : {
"exclude_filename" : [
"Install",
"LICENSE",
"META.json",
"Makefile.PL",
"README.md",
"cpanfile"
],
"exclude_match" : [],
"follow_symlinks" : 0,
"include_dotfiles" : 0,
"prefix" : "",
"prune_directory" : [],
"root" : "."
},
"Dist::Zilla::Plugin::Git::GatherDir" : {
"include_untracked" : 0
}
},
"name" : "@Author::OALDERS/Git::GatherDir",
"version" : "2.048"
},
{
"class" : "Dist::Zilla::Plugin::CopyFilesFromRelease",
"config" : {
"Dist::Zilla::Plugin::CopyFilesFromRelease" : {
"filename" : [
"Install"
],
"match" : []
}
},
"name" : "@Author::OALDERS/CopyFilesFromRelease",
"version" : "0.007"
},
{
"class" : "Dist::Zilla::Plugin::Git::Check",
"config" : {
"Dist::Zilla::Plugin::Git::Check" : {
"untracked_files" : "die"
},
"Dist::Zilla::Role::Git::DirtyFiles" : {
"allow_dirty" : [
"Changes",
"Install",
"LICENSE",
"META.json",
"Makefile.PL",
"README.md",
"cpanfile",
"dist.ini"
],
"allow_dirty_match" : [],
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
"git_version" : "2.33.0",
"repo_root" : "."
}
},
"name" : "@Author::OALDERS/Git::Check",
"version" : "2.048"
},
{
"class" : "Dist::Zilla::Plugin::Git::Contributors",
"config" : {
"Dist::Zilla::Plugin::Git::Contributors" : {
"git_version" : "2.33.0",
"include_authors" : 0,
"include_releaser" : 1,
"order_by" : "name",
"paths" : []
}
},
"name" : "@Author::OALDERS/Git::Contributors",
"version" : "0.036"
},
{
"class" : "Dist::Zilla::Plugin::ReadmeAnyFromPod",
"config" : {
"Dist::Zilla::Role::FileWatcher" : {
"version" : "0.006"
}
},
"name" : "@Author::OALDERS/ReadmeMdInBuild",
"version" : "0.163250"
},
{
"class" : "Dist::Zilla::Plugin::StaticInstall",
"config" : {
"Dist::Zilla::Plugin::StaticInstall" : {
"dry_run" : 0,
"mode" : "on"
}
},
"name" : "@Author::OALDERS/StaticInstall",
"version" : "0.012"
},
{
"class" : "Dist::Zilla::Plugin::ShareDir",
"name" : "@Author::OALDERS/ShareDir",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::CheckIssues",
"name" : "@Author::OALDERS/CheckIssues",
"version" : "0.011"
},
{
"class" : "Dist::Zilla::Plugin::ConfirmRelease",
"name" : "@Author::OALDERS/ConfirmRelease",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::UploadToCPAN",
"name" : "@Author::OALDERS/UploadToCPAN",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
"config" : {
"Dist::Zilla::Plugin::Prereqs" : {
"phase" : "develop",
"type" : "recommends"
}
},
"name" : "@Author::OALDERS/@Git::VersionManager/pluginbundle version",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::RewriteVersion::Transitional",
"config" : {
"Dist::Zilla::Plugin::RewriteVersion" : {
"add_tarball_name" : 0,
"finders" : [
":ExecFiles",
":InstallModules"
],
"global" : 0,
"skip_version_provider" : 0
},
"Dist::Zilla::Plugin::RewriteVersion::Transitional" : {}
},
"name" : "@Author::OALDERS/@Git::VersionManager/RewriteVersion::Transitional",
"version" : "0.009"
},
{
"class" : "Dist::Zilla::Plugin::MetaProvides::Update",
"name" : "@Author::OALDERS/@Git::VersionManager/MetaProvides::Update",
"version" : "0.007"
},
{
"class" : "Dist::Zilla::Plugin::CopyFilesFromRelease",
"config" : {
"Dist::Zilla::Plugin::CopyFilesFromRelease" : {
"filename" : [
"Changes"
],
"match" : []
}
},
"name" : "@Author::OALDERS/@Git::VersionManager/CopyFilesFromRelease",
"version" : "0.007"
},
{
"class" : "Dist::Zilla::Plugin::Git::Commit",
"config" : {
"Dist::Zilla::Plugin::Git::Commit" : {
"add_files_in" : [],
"commit_msg" : "v%V%n%n%c",
"signoff" : 0
},
"Dist::Zilla::Role::Git::DirtyFiles" : {
"allow_dirty" : [
"Changes",
"Install",
"LICENSE",
"META.json",
"Makefile.PL",
"README.md",
"cpanfile",
"dist.ini"
],
"allow_dirty_match" : [],
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
"git_version" : "2.33.0",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
"time_zone" : "local"
}
},
"name" : "@Author::OALDERS/@Git::VersionManager/release snapshot",
"version" : "2.048"
},
{
"class" : "Dist::Zilla::Plugin::Git::Tag",
"config" : {
"Dist::Zilla::Plugin::Git::Tag" : {
"branch" : null,
"changelog" : "Changes",
"signed" : 0,
"tag" : "v2.22",
"tag_format" : "v%V",
"tag_message" : "v%V"
},
"Dist::Zilla::Role::Git::Repo" : {
"git_version" : "2.33.0",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
"time_zone" : "local"
}
},
"name" : "@Author::OALDERS/@Git::VersionManager/Git::Tag",
"version" : "2.048"
},
{
"class" : "Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional",
"config" : {
"Dist::Zilla::Plugin::BumpVersionAfterRelease" : {
"finders" : [
":ExecFiles",
":InstallModules"
],
"global" : 0,
"munge_makefile_pl" : 1
},
"Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional" : {}
},
"name" : "@Author::OALDERS/@Git::VersionManager/BumpVersionAfterRelease::Transitional",
"version" : "0.009"
},
{
"class" : "Dist::Zilla::Plugin::NextRelease",
"name" : "@Author::OALDERS/@Git::VersionManager/NextRelease",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::Git::Commit",
"config" : {
"Dist::Zilla::Plugin::Git::Commit" : {
"add_files_in" : [],
"commit_msg" : "increment $VERSION after %v release",
"signoff" : 0
},
"Dist::Zilla::Role::Git::DirtyFiles" : {
"allow_dirty" : [
"Build.PL",
"Changes",
"Makefile.PL"
],
"allow_dirty_match" : [
"(?^:^lib/.*\\.pm$)"
],
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
"git_version" : "2.33.0",
"repo_root" : "."
},
"Dist::Zilla::Role::Git::StringFormatter" : {
"time_zone" : "local"
}
},
"name" : "@Author::OALDERS/@Git::VersionManager/post-release commit",
"version" : "2.048"
},
{
"class" : "Dist::Zilla::Plugin::Git::Push",
"config" : {
"Dist::Zilla::Plugin::Git::Push" : {
"push_to" : [
"origin"
],
"remotes_must_exist" : 1
},
"Dist::Zilla::Role::Git::Repo" : {
"git_version" : "2.33.0",
"repo_root" : "."
}
},
"name" : "@Author::OALDERS/Git::Push",
"version" : "2.048"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
"config" : {
"Dist::Zilla::Plugin::Prereqs" : {
"phase" : "test",
"type" : "requires"
}
},
"name" : "TestRequires",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::GitHubREADME::Badge",
"name" : "GitHubREADME::Badge",
"version" : "0.33"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":InstallModules",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":IncModules",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":TestFiles",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ExtraTestFiles",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ExecFiles",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":PerlExecFiles",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ShareFiles",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":MainModule",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":AllFiles",
"version" : "6.024"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":NoFiles",
"version" : "6.024"
}
],
"zilla" : {
"class" : "Dist::Zilla::Dist::Builder",
"config" : {
"is_trial" : 0
},
"version" : "6.024"
}
},
"x_contributors" : [
"Chase Venters ",
"David Steinbrunner ",
"Jeremy Mates ",
"Kenichi Ishigaki ",
"Mark Stosberg ",
"Mark Stosberg ",
"Mark Stosberg ",
"Martin McGrath ",
"Olaf Alders ",
"Olaf Alders "
],
"x_generated_by_perl" : "v5.34.0",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.26",
"x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later",
"x_static_install" : 1
}
HTML-FillInForm-2.22/README.md 000644 000765 000024 00000017576 14123725062 016762 0 ustar 00olafalders staff 000000 000000 # NAME
HTML::FillInForm - Populates HTML Forms with data.
# VERSION
version 2.22
# SYNOPSIS
Fill HTML form with data.
$output = HTML::FillInForm->fill( \$html, $q );
$output = HTML::FillInForm->fill( \@html, [$q1,$q2] );
$output = HTML::FillInForm->fill( \*HTML, \%data );
$output = HTML::FillInForm->fill( 't.html', [\%data1,%data2] );
The HTML can be provided as a scalarref, arrayref, filehandle or file. The data can come from one or more
hashrefs, or objects which support a param() method, like CGI.pm, [Apache::Request](https://metacpan.org/pod/Apache%3A%3ARequest), etc.
# DESCRIPTION
This module fills in an HTML form with data from a Perl data structure, allowing you
to keep the HTML and Perl separate.
Here are two common use cases:
1\. A user submits an HTML form without filling out a required field. You want
to redisplay the form with all the previous data in it, to make it easy for the
user to see and correct the error.
2\. You have just retrieved a record from a database and need to display it in
an HTML form.
# fill
The basic syntax is seen above the Synopsis. There are a few additional options.
## Options
### target => 'form1'
Suppose you have multiple forms in a html file and only want to fill in one.
$output = HTML::FillInForm->fill(\$html, $q, target => 'form1');
This will fill in only the form inside
### fill\_password => 0
Passwords are filled in by default. To disable:
fill_password => 0
### ignore\_fields => \[\]
To disable the filling of some fields:
ignore_fields => ['prev','next']
### disable\_fields => \[\]
To disable fields from being edited:
disable_fields => [ 'uid', 'gid' ]
### invalid\_fields => \[\]
To mark fields as being invalid (CSS class set to "invalid" or
whatever you set invalid\_class to):
invalid_fields => [ 'uid', 'gid' ]
### invalid\_class => "invalid"
The CSS class which will be used to mark fields invalid. Defaults to
"invalid".
### clear\_absent\_checkboxes => 0
Absent fields are not cleared or in any way changed. This is
not what you want when you deal with checkboxes which are not sent
by browser at all when cleared by user.
To remove "checked" attribute from checkboxes and radio buttons and
attribute "selected" from options of select lists for which there's no
data:
clear_absent_checkboxes => 1
## File Upload fields
File upload fields cannot be supported directly. Workarounds include asking the
user to re-attach any file uploads or fancy server-side storage and
referencing. You are on your own.
## Clearing Fields
Fields are cleared if you set their value to an empty string or empty arrayref but not undef:
# this will leave the form element foo untouched
HTML::FillInForm->fill(\$html, { foo => undef });
# this will set clear the form element foo
HTML::FillInForm->fill(\$html, { foo => "" });
It has been suggested to add a option to change the behavior so that undef
values will clear the form elements. Patches welcome.
You can also use `clear_absent_checkboxes` option to clear
checkboxes, radio buttons and selects without corresponding keys in
the data:
# this will set clear the form element foo (and all others except
# bar)
HTML::FillInForm->fill(\$html, { bar => 123 },
clear_absent_checkboxes => 1);
# Old syntax
You probably need to read no further. The remaining docs concern the
1.x era syntax, which is still supported.
## new
Call `new()` to create a new FillInForm object:
$fif = HTML::FillInForm->new;
$fif->fill(...);
In theory, there is a slight performance benefit to calling `new()` before `fill()` if you make multiple
calls to `fill()` before you destroy the object. Benchmark before optimizing.
## fill ( old syntax )
Instead of having your HTML and data types auto-detected, you can declare them explicitly in your
call to `fill()`:
HTML source options:
arrayref => @html
scalarref => $html
file => \*HTML
file => 't.html'
Fill Data options:
fobject => $data_obj # with param() method
fdat => \%data
Additional methods are also available:
fill_file(\*HTML,...);
fill_file('t.html',...);
fill_arrayref(\@html,...);
fill_scalarref(\$html,...);
# USING AN ALTERNATE PARSER
It's possible to use an alternate parser to [HTML::Parser](https://metacpan.org/pod/HTML%3A%3AParser) if the alternate
provides a sufficiently compatible interface. For example, when a Pure Perl
implementation of HTML::Parser appears, it could be used for portability. The syntax
is simply to provide a `parser_class` to new();
HTML::FillInForm->new( parser_class => 'MyAlternate::Parser' );
# CALLING FROM OTHER MODULES
## Apache::PageKit
To use HTML::FillInForm in [Apache::PageKit](https://metacpan.org/pod/Apache%3A%3APageKit) is easy. It is
automatically called for any page that includes a <form> tag.
It can be turned on or off by using the `fill_in_form` configuration
option.
## Apache::ASP v2.09 and above
HTML::FillInForm is now integrated with Apache::ASP. To activate, use
PerlSetVar FormFill 1
$Response->{FormFill} = 1
## HTML::Mason
Using HTML::FillInForm from HTML::Mason is covered in the FAQ on
the masonhq.com website at
[http://www.masonhq.com/?FAQ:HTTPAndHTML#h-how\_can\_i\_populate\_form\_values\_automatically\_](http://www.masonhq.com/?FAQ:HTTPAndHTML#h-how_can_i_populate_form_values_automatically_)
# SECURITY
Note that you might want to think about caching issues if you have password
fields on your page. There is a discussion of this issue at
http://www.perlmonks.org/index.pl?node\_id=70482
In summary, some browsers will cache the output of CGI scripts, and you
can control this by setting the Expires header. For example, use
`-expires` in [CGI.pm](https://metacpan.org/pod/CGI.pm) or set `browser_cache` to _no_ in
Config.xml file of [Apache::PageKit](https://metacpan.org/pod/Apache%3A%3APageKit).
# TRANSLATION
Kato Atsushi has translated these docs into Japanese, available from
http://perldoc.jp
# BUGS
Please submit any bug reports to tjmather@maxmind.com.
# NOTES
Requires Perl 5.005 and [HTML::Parser](https://metacpan.org/pod/HTML%3A%3AParser) version 3.26.
I wrote this module because I wanted to be able to insert CGI data
into HTML forms,
but without combining the HTML and Perl code. CGI.pm and Embperl allow you so
insert CGI data into forms, but require that you mix HTML with Perl.
There is a nice review of the module available here:
[http://www.perlmonks.org/index.pl?node\_id=274534](http://www.perlmonks.org/index.pl?node_id=274534)
# SEE ALSO
[HTML::Parser](https://metacpan.org/pod/HTML%3A%3AParser),
[Data::FormValidator](https://metacpan.org/pod/Data%3A%3AFormValidato),
[HTML::Template](https://metacpan.org/pod/HTML%3A%3ATemplate),
[Apache::PageKit](https://metacpan.org/pod/Apache%3A%3APageKit)
# CREDITS
Fixes, Bug Reports, Docs have been generously provided by:
Alex Kapranoff Miika Pekkarinen
Michael Fisher Sam Tregar
Tatsuhiko Miyagawa Joseph Yanni
Boris Zentner Philip Mak
Dave Rolsky Jost Krieger
Patrick Michael Kane Gabriel Burka
Ade Olonoh Bill Moseley
Tom Lancaster James Tolley
Martin H Sluka Dan Kubb
Mark Stosberg Alexander Hartmaier
Jonathan Swartz Paul Miller
Trevor Schellhorn Anthony Ettinger
Jim Miner Simon P. Ditner
Paul Lindner Michael Peters
Maurice Aubrey Trevor Schellhorn
Andrew Creer
Thanks!
# AUTHOR
TJ Mather, tjmather@maxmind.com
# COPYRIGHT AND LICENSE
This software is copyright (c) 2000 by TJ Mather, tjmather@maxmind.com.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
HTML-FillInForm-2.22/tidyall.ini 000644 000765 000024 00000001241 14123725062 017624 0 ustar 00olafalders staff 000000 000000 [PerlCritic]
select = **/*.{pl,pm,t,psgi}
ignore = .build/**/*
ignore = HTML-FillInForm-*/**/*
ignore = blib/**/*
ignore = t/00-*
ignore = t/author-*
ignore = t/release-*
ignore = t/zzz-*
ignore = xt/**/*
argv = --profile=$ROOT/perlcriticrc
[PerlTidy]
select = **/*.{pl,pm,t,psgi}
ignore = .build/**/*
ignore = HTML-FillInForm-*/**/*
ignore = blib/**/*
ignore = t/00-*
ignore = t/author-*
ignore = t/release-*
ignore = t/zzz-*
ignore = xt/**/*
argv = --profile=$ROOT/perltidyrc
[Test::Vars]
select = **/*.pm
ignore = .build/**/*
ignore = HTML-FillInForm-*/**/*
ignore = blib/**/*
ignore = t/00-*
ignore = t/author-*
ignore = t/release-*
ignore = t/zzz-*
ignore = xt/**/*
HTML-FillInForm-2.22/lib/ 000755 000765 000024 00000000000 14123725062 016231 5 ustar 00olafalders staff 000000 000000 HTML-FillInForm-2.22/Makefile.PL 000644 000765 000024 00000002575 14123725062 017446 0 ustar 00olafalders staff 000000 000000 # This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v6.024.
use strict;
use warnings;
use 5.006;
use ExtUtils::MakeMaker;
my %WriteMakefileArgs = (
"ABSTRACT" => "Populates HTML Forms with data.",
"AUTHOR" => "TJ Mather, tjmather\@maxmind.com",
"CONFIGURE_REQUIRES" => {
"ExtUtils::MakeMaker" => 0
},
"DISTNAME" => "HTML-FillInForm",
"LICENSE" => "perl",
"MIN_PERL_VERSION" => "5.006",
"NAME" => "HTML::FillInForm",
"PREREQ_PM" => {
"Carp" => 0,
"integer" => 0,
"strict" => 0,
"vars" => 0
},
"TEST_REQUIRES" => {
"CGI" => 0,
"ExtUtils::MakeMaker" => 0,
"File::Spec" => 0,
"HTML::TokeParser" => 0,
"Test" => 0,
"Test::More" => "0.96",
"warnings" => 0
},
"VERSION" => "2.22",
"test" => {
"TESTS" => "t/*.t"
}
);
my %FallbackPrereqs = (
"CGI" => 0,
"Carp" => 0,
"ExtUtils::MakeMaker" => 0,
"File::Spec" => 0,
"HTML::TokeParser" => 0,
"Test" => 0,
"Test::More" => "0.96",
"integer" => 0,
"strict" => 0,
"vars" => 0,
"warnings" => 0
);
unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
delete $WriteMakefileArgs{TEST_REQUIRES};
delete $WriteMakefileArgs{BUILD_REQUIRES};
$WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}
delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
unless eval { ExtUtils::MakeMaker->VERSION(6.52) };
WriteMakefile(%WriteMakefileArgs);
HTML-FillInForm-2.22/dist.ini 000644 000765 000024 00000001264 14123725062 017132 0 ustar 00olafalders staff 000000 000000 name = HTML-FillInForm
author = TJ Mather, tjmather@maxmind.com
copyright_holder = TJ Mather, tjmather@maxmind.com
copyright_year = 2000
main_module = lib/HTML/FillInForm.pm
license = Perl_5
[@Author::OALDERS]
-remove = PodCoverageTests
-remove = Test::CPAN::Changes
-remove = Test::EOL
-remove = Test::Perl::Critic
-remove = Test::Pod::Coverage::Configurable
-remove = Test::Synopsis
-remove = Test::TidyAll
StaticInstall.mode = on
StaticInstall.dry_run = 0
[Prereqs / TestRequires]
Test::More = 0.96
[GitHubREADME::Badge]
badges = github_actions/dzil-build-and-test
badges = coveralls
badges = codecov
badges = cpants
badges = github_tag
badges = license
place = top
phase = build
HTML-FillInForm-2.22/lib/HTML/ 000755 000765 000024 00000000000 14123725062 016775 5 ustar 00olafalders staff 000000 000000 HTML-FillInForm-2.22/lib/HTML/FillInForm.pm 000644 000765 000024 00000056530 14123725062 021345 0 ustar 00olafalders staff 000000 000000 package HTML::FillInForm;
our $VERSION = '2.22';
use integer; # no floating point math so far!
use strict; # and no funny business, either.
use Carp; # generate better errors with more context
# required for UNIVERSAL->can
require 5.005;
use vars qw($VERSION @ISA);
$VERSION = '2.21';
sub new {
my $class = shift;
my $self = bless {}, $class;
# required for attr_encoded
my %arg = @_ || ();
my $parser_class = $arg{parser_class} || 'HTML::Parser';
eval "require $parser_class;" || die "require $parser_class failed: $@";
@ISA = ($parser_class);
$self->init(@_);
unless ($self->can('attr_encoded')) {
die "attr_encoded method is missing. If are using HTML::Parser, you need at least version 3.26";
}
# tell HTML::Parser not to decode attributes
$self->attr_encoded(1);
return $self;
}
# a few shortcuts to fill()
sub fill_file { my $self = shift; return $self->fill('file' ,@_); }
sub fill_arrayref { my $self = shift; return $self->fill('arrayref' ,@_); }
sub fill_scalarref { my $self = shift; return $self->fill('scalarref',@_); }
# track the keys we support. Useful for file-name detection.
sub _known_keys {
return {
scalarref => 1,
arrayref => 1,
fdat => 1,
fobject => 1,
file => 1,
target => 1,
fill_password => 1,
ignore_fields => 1,
disable_fields => 1,
invalid_fields => 1,
invalid_class => 1,
}
}
sub fill {
my $self = shift;
# If we are called as a class method, go ahead and call new().
$self = $self->new if (not ref $self);
my %option;
# If the first arg is a scalarref, translate that to scalarref => $first_arg
if (ref $_[0] eq 'SCALAR') {
$option{scalarref} = shift;
}
elsif (ref $_[0] eq 'ARRAY') {
$option{arrayref} = shift;
}
elsif (ref $_[0] eq 'GLOB') {
$option{file} = shift;
}
elsif (ref $_[0]) {
croak "data source is not a reference type we understand";
}
# Last chance, if the first arg isn't one of the known keys, we
# assume it is a file name.
elsif (not _known_keys()->{$_[0]} ) {
$option{file} = shift;
}
else {
# Should be a known key. Nothing to do.
}
# Now, check to see if the next arg is also a reference.
my $data;
if (ref $_[0]) {
$data = shift;
$data = [$data] unless ref $data eq 'ARRAY';
for my $source (@$data) {
if (ref $source eq 'HASH') {
push @{ $option{fdat} }, $source;
}
elsif (ref $source) {
if ($source->can('param')) {
push @{ $option{fobject} }, $source;
}
else {
croak "data source $source does not supply a param method";
}
}
elsif (defined $source) {
croak "data source $source is not a hash or object reference";
}
}
}
# load in the rest of the options
%option = (%option, @_);
# As suggested in the docs, merge multiple fdats into one.
if (ref $option{fdat} eq 'ARRAY') {
my %merged;
for my $hash (@{ $option{fdat} }) {
for my $key (keys %$hash) {
$merged{$key} = $hash->{$key};
}
}
$option{'fdat'} = \%merged;
}
my %ignore_fields;
%ignore_fields = map { $_ => 1 } ( ref $option{'ignore_fields'} eq 'ARRAY' )
? @{ $option{ignore_fields} } : $option{ignore_fields} if exists( $option{ignore_fields} );
$self->{ignore_fields} = \%ignore_fields;
my %disable_fields;
%disable_fields = map { $_ => 1 } ( ref $option{'disable_fields'} eq 'ARRAY' )
? @{ $option{disable_fields} } : $option{disable_fields} if exists( $option{disable_fields} );
$self->{disable_fields} = \%disable_fields;
my %invalid_fields;
%invalid_fields = map { $_ => 1 } ( ref $option{'invalid_fields'} eq 'ARRAY' )
? @{ $option{invalid_fields} } : $option{invalid_fields} if exists( $option{invalid_fields} );
$self->{invalid_fields} = \%invalid_fields;
if (my $fdat = $option{fdat}){
# Copy the structure to prevent side-effects.
my %copy;
keys %$fdat; # reset fdat if each or Dumper was called on fdat
while(my($key, $val) = each %$fdat) {
next if exists $ignore_fields{$key};
$copy{ $key } = ref $val eq 'ARRAY' ? [ @$val ] : $val;
}
$self->{fdat} = \%copy;
}
# We want the reference to these objects to go out of scope at the
# end of the method.
local $self->{objects} = [];
if(my $objects = $option{fobject}){
unless(ref($objects) eq 'ARRAY'){
$objects = [ $objects ];
}
for my $object (@$objects){
# make sure objects in 'param_object' parameter support param()
defined($object->can('param')) or
croak("HTML::FillInForm->fill called with fobject option, containing object of type " . ref($object) . " which lacks a param() method!");
}
$self->{objects} = $objects;
}
if (my $target = $option{target}){
$self->{'target'} = $target;
}
if (my $invalid_class = $option{invalid_class}){
$self->{'invalid_class'} = $invalid_class;
} else {
$self->{'invalid_class'} = 'invalid';
}
if (defined($option{fill_password})){
$self->{fill_password} = $option{fill_password};
} else {
$self->{fill_password} = 1;
}
$self->{clear_absent_checkboxes} = $option{clear_absent_checkboxes};
# make sure method has data to fill in HTML form with!
unless(exists $self->{fdat} || $self->{objects}){
croak("HTML::FillInForm->fillInForm() called without 'fobject' or 'fdat' parameter set");
}
local $self->{object_param_cache};
if(my $file = $option{file}){
$self->parse_file($file);
} elsif (my $scalarref = $option{scalarref}){
$self->parse($$scalarref);
} elsif (my $arrayref = $option{arrayref}){
for (@$arrayref){
$self->parse($_);
}
}
$self->eof;
return delete $self->{output};
}
# handles opening HTML tags such as bar
if ($self->{selectMultiple}){
# check if the option tag belongs to a multiple option select
foreach my $v ( grep { defined } @$value ) {
if ( $attr->{'value'} eq __escapeHTML($v) ){
$attr->{selected} = 'selected';
}
}
} else {
# if not every value of a fdat ARRAY belongs to a different select tag
if (not $self->{selectSelected}){
if ( $attr->{'value'} eq __escapeHTML($value->[0])){
shift @$value if ref($value) eq 'ARRAY';
$attr->{selected} = 'selected';
$self->{selectSelected} = 1; # remember that an option tag is selected for this select tag
}
}
}
} else {
# option tag has no value attr - bar
# save for processing under text handler
$self->{option_no_value} = __escapeHTML($value);
}
}
$self->{output} .= "<$tagname";
while (my ($key, $value) = each %$attr) {
$self->{output} .= sprintf qq( %s="%s"), $key, $value;
}
unless ($self->{option_no_value}){
# we can close option tag here
$self->{output} .= ">";
}
} elsif ($tagname eq 'textarea'){
# need to re-output the ->
# we need to set outputText to 'no' so that 'foobar' won't be printed
$self->{outputText} = 'no';
$self->{output} .= __escapeHTML($value);
}
} elsif ($tagname eq 'select'){
$self->{selectName} = $attr->{'name'};
if (defined $attr->{'multiple'}){
$self->{selectMultiple} = 1; # helper var to remember if the select tag has the multiple attr set or not
} else {
$self->{selectMultiple} = 0;
$self->{selectSelected} = 0; # helper var to remember if an option was already selected in the current select tag
}
# need to re-output the if we're marking it invalid
# (doesn't disable need this too?)
if ($invalidating) {
$self->{output} .= "<$tagname";
while (my ($key, $value) = each %$attr) {
$self->{output} .= sprintf qq( %s="%s"), $key, $value;
}
$self->{output} .= ">";
} else {
$self->{output} .= $origtext;
}
} else {
$self->{output} .= $origtext;
}
}
sub _get_param {
my ($self, $param) = @_;
return undef if $self->{ignore_fields}{$param};
return $self->{fdat}{$param} if exists $self->{fdat}{$param};
return $self->{object_param_cache}{$param} if exists $self->{object_param_cache}{$param};
# traverse the list in reverse order for backwards compatibility
# with the previous implementation.
for my $o (reverse @{$self->{objects}}) {
my @v;
if ($o->can('multi_param')) {
@v = $o->multi_param($param);
} else {
@v = $o->param($param);
}
next unless @v;
return $self->{object_param_cache}{$param} = @v > 1 ? \@v : $v[0];
}
return undef;
}
# handles non-html text
sub text {
my ($self, $origtext) = @_;
# just output text, unless replaced value of
sub end {
my ($self, $tagname, $origtext) = @_;
if ($self->{option_no_value}) {
$self->{output} .= '>';
delete $self->{option_no_value};
}
if($tagname eq 'select'){
delete $self->{selectName};
} elsif ($tagname eq 'textarea'){
delete $self->{outputText};
} elsif ($tagname eq 'form') {
delete $self->{'current_form'};
}
$self->{output} .= $origtext;
}
sub __escapeHTML {
my ($toencode) = @_;
return undef unless defined($toencode);
$toencode =~ s/&/&/g;
$toencode =~ s/\"/"/g;
$toencode =~ s/>/>/g;
$toencode =~ s/{output} .= '';
} else {
$self->{output} .= '';
}
}
sub process {
my ( $self, $token0, $text ) = @_;
$self->{output} .= $text;
}
sub declaration {
my ( $self, $text ) = @_;
$self->{output} .= '';
}
1;
=pod
=encoding UTF-8
=head1 NAME
HTML::FillInForm - Populates HTML Forms with data.
=head1 VERSION
version 2.22
=head1 SYNOPSIS
Fill HTML form with data.
$output = HTML::FillInForm->fill( \$html, $q );
$output = HTML::FillInForm->fill( \@html, [$q1,$q2] );
$output = HTML::FillInForm->fill( \*HTML, \%data );
$output = HTML::FillInForm->fill( 't.html', [\%data1,%data2] );
The HTML can be provided as a scalarref, arrayref, filehandle or file. The data can come from one or more
hashrefs, or objects which support a param() method, like CGI.pm, L, etc.
=head1 DESCRIPTION
This module fills in an HTML form with data from a Perl data structure, allowing you
to keep the HTML and Perl separate.
Here are two common use cases:
1. A user submits an HTML form without filling out a required field. You want
to redisplay the form with all the previous data in it, to make it easy for the
user to see and correct the error.
2. You have just retrieved a record from a database and need to display it in
an HTML form.
=head1 fill
The basic syntax is seen above the Synopsis. There are a few additional options.
=head2 Options
=head3 target => 'form1'
Suppose you have multiple forms in a html file and only want to fill in one.
$output = HTML::FillInForm->fill(\$html, $q, target => 'form1');
This will fill in only the form inside
=head3 fill_password => 0
Passwords are filled in by default. To disable:
fill_password => 0
=head3 ignore_fields => []
To disable the filling of some fields:
ignore_fields => ['prev','next']
=head3 disable_fields => []
To disable fields from being edited:
disable_fields => [ 'uid', 'gid' ]
=head3 invalid_fields => []
To mark fields as being invalid (CSS class set to "invalid" or
whatever you set invalid_class to):
invalid_fields => [ 'uid', 'gid' ]
=head3 invalid_class => "invalid"
The CSS class which will be used to mark fields invalid. Defaults to
"invalid".
=head3 clear_absent_checkboxes => 0
Absent fields are not cleared or in any way changed. This is
not what you want when you deal with checkboxes which are not sent
by browser at all when cleared by user.
To remove "checked" attribute from checkboxes and radio buttons and
attribute "selected" from options of select lists for which there's no
data:
clear_absent_checkboxes => 1
=head2 File Upload fields
File upload fields cannot be supported directly. Workarounds include asking the
user to re-attach any file uploads or fancy server-side storage and
referencing. You are on your own.
=head2 Clearing Fields
Fields are cleared if you set their value to an empty string or empty arrayref but not undef:
# this will leave the form element foo untouched
HTML::FillInForm->fill(\$html, { foo => undef });
# this will set clear the form element foo
HTML::FillInForm->fill(\$html, { foo => "" });
It has been suggested to add a option to change the behavior so that undef
values will clear the form elements. Patches welcome.
You can also use C option to clear
checkboxes, radio buttons and selects without corresponding keys in
the data:
# this will set clear the form element foo (and all others except
# bar)
HTML::FillInForm->fill(\$html, { bar => 123 },
clear_absent_checkboxes => 1);
=head1 Old syntax
You probably need to read no further. The remaining docs concern the
1.x era syntax, which is still supported.
=head2 new
Call C to create a new FillInForm object:
$fif = HTML::FillInForm->new;
$fif->fill(...);
In theory, there is a slight performance benefit to calling C before C if you make multiple
calls to C before you destroy the object. Benchmark before optimizing.
=head2 fill ( old syntax )
Instead of having your HTML and data types auto-detected, you can declare them explicitly in your
call to C:
HTML source options:
arrayref => @html
scalarref => $html
file => \*HTML
file => 't.html'
Fill Data options:
fobject => $data_obj # with param() method
fdat => \%data
Additional methods are also available:
fill_file(\*HTML,...);
fill_file('t.html',...);
fill_arrayref(\@html,...);
fill_scalarref(\$html,...);
=head1 USING AN ALTERNATE PARSER
It's possible to use an alternate parser to L if the alternate
provides a sufficiently compatible interface. For example, when a Pure Perl
implementation of HTML::Parser appears, it could be used for portability. The syntax
is simply to provide a C to new();
HTML::FillInForm->new( parser_class => 'MyAlternate::Parser' );
=head1 CALLING FROM OTHER MODULES
=head2 Apache::PageKit
To use HTML::FillInForm in L is easy. It is
automatically called for any page that includes a
EOF
;
my %fdat = (
foo1 => 'bar1',
foo2 => 'bar2',
foo3 => 'bar3',
foo4 => 'bar4',
);
my $output = HTML::FillInForm->fill( \$form, \%fdat,
target => 'foo2',
);
my @v = $output =~ m/\s*$/){
print "ok 2\n";
} else {
print "Got unexpected out for $hidden_form_in:\n$output\n";
print "not ok 2\n";
}
HTML-FillInForm-2.22/t/09_default_type.t 000644 000765 000024 00000001103 14123725062 021103 0 ustar 00olafalders staff 000000 000000 # -*- Mode: Perl; -*-
use strict;
$^W = 1;
print "1..2\n";
use HTML::FillInForm;
print "ok 1\n";
my $hidden_form_in = qq{\s*$/){
print "ok 2\n";
} else {
print "Got unexpected out for $hidden_form_in:\n$output\n";
print "not ok 2\n";
}
HTML-FillInForm-2.22/t/27_html5.t 000644 000765 000024 00000001551 14123725062 017456 0 ustar 00olafalders staff 000000 000000 use strict;
use warnings FATAL => 'all';
use Test::More;
use HTML::FillInForm;
# See http://www.w3.org/TR/html5/forms.html#the-input-element
my %data = (
tel => '00-0000-0000',
search => 'search word',
url => 'http://localhost',
email => 'foo@example.com',
datetime => '2012-10-10T00:00Z',
date => '2012-10-10',
month => '2012-10',
week => '2012-W10',
time => '00:00',
'datetime-local' => '2012-10-10T00:00',
number => 1,
range => 10,
color => '#000000',
);
plan tests => scalar keys %data;
my $html =
'';
my $result = HTML::FillInForm->new->fill(\$html, \%data);
for my $key (keys %data) {
my ($input) = $result =~ /(]+type="$key"[^>]*>)/;
like $input => qr/value="$data{$key}"/, "filled $key";
}
HTML-FillInForm-2.22/t/06_radio.t 000644 000765 000024 00000001422 14123725062 017515 0 ustar 00olafalders staff 000000 000000 # -*- Mode: Perl; -*-
use strict;
$^W = 1;
print "1..2\n";
use HTML::FillInForm;
print "ok 1\n";
my $hidden_form_in = qq{
bar1
bar2
bar3
bar1
bar2
bar3
bar1
bar2
bar3
bar1
bar2
bar3
};
my $q = new CGI( { foo1 => '0',
foo2 => ['bar1', 'bar2',],
foo3 => '' }
);
my $fif = new HTML::FillInForm;
my $output = $fif->fill(scalarref => \$hidden_form_in,
fobject => $q,
ignore_fields => ['asdf','foo1','asdf']);
my $is_selected = join(" ",map { m/selected/ ? "yes" : "no" } grep /option/, split ("\n",$output));
if ($is_selected eq "no no no yes yes no no no no no yes no"){
print "ok 2\n";
} else {
print "Got unexpected is_selected for select menus:\n$is_selected\n$output\n";
print "not ok 2\n";
}
HTML-FillInForm-2.22/t/14_password.t 000644 000765 000024 00000001105 14123725062 020256 0 ustar 00olafalders staff 000000 000000 # -*- Mode: Perl; -*-
#!/usr/bin/perl -w
use CGI qw(:no_debug);
use HTML::FillInForm;
use Test;
BEGIN { plan tests => 2 }
local $/;
my $html = qq{!);
HTML-FillInForm-2.22/t/01_form.t 000644 000765 000024 00000001155 14123725062 017360 0 ustar 00olafalders staff 000000 000000 # -*- Mode: Perl; -*-
use strict;
$^W = 1;
print "1..2\n";
use HTML::FillInForm;
print "ok 1\n";
my $hidden_form_in = qq{\s*fill(
\*FH,
{
one => "new val 1",
two => "new val 2",
three => "new val 3",
},
);
ok($result =~ /new val 1/ && $result =~ /\bone/,'fill_file 1');
ok($result =~ /new val 2/ && $result =~ /\btwo/,'fill_file 2');
ok($result =~ /new val 3/ && $result =~ /\bthree/,'fill_file 3');
close(\*FH);
}
$html = qq[
];
eval{
$result = HTML::FillInForm->new->fill_scalarref(
\$html
);
};
$result = HTML::FillInForm->new->fill(
fdat => {}
);
#No meaningful arguments - should not this produce an error?
$html = qq[
];
my $fobject = new Support::Object;
eval{
$result = HTML::FillInForm->new->fill_scalarref(
$html,
fobject => $fobject
);
};
like($@, qr/HTML::FillInForm->fill called with fobject option, containing object of type Support::Object which lacks a param\(\) method!/, "bad fobject parameter");
$html = qq{/, "Empty password field value");
$html = qq[
];
%fdat = (foo0 => 'bar1', foo1 => 'bar2');
$result = HTML::FillInForm->new->fill(scalarref => \$html,
fdat => \%fdat);
ok($result =~ /bar1/ and $result =~ /\bfoo0/,'form with comments 1');
like($result, qr'','form with comments 2');
like($result, qr'','Comment 1');
like($result, qr'','Comment 2');
like($result, qr'','Comment 3');
like($result, qr'','Comment 4');
$html = qq[
];
%fdat = (foo0 => 'bar1', foo1 => 'bar2');
$result = HTML::FillInForm->new->fill(scalarref => \$html,
fdat => \%fdat);
ok($result =~ /bar1/ && $result =~ /\bfoo0/,'form with processing 1');
like($result, qr'','form with processing 2');
like($result, qr'<\? HTML processing instructions 1 \?>','processing 1');
like($result, qr'<\? XML processing instructions 2\?>','processing 2');
like($result, qr'<\? HTML processing instructions\n\n3>','processing 3');
like($result, qr'<\?HTML processing instructions 4 >','processing 4');
HTML-FillInForm-2.22/t/26_invalid_fields.t 000644 000765 000024 00000004637 14123725062 021410 0 ustar 00olafalders staff 000000 000000 #!/usr/local/bin/perl
use strict;
use warnings;
use Test::More;
use HTML::FillInForm;
use HTML::TokeParser;
my $html = qq[];
{
my $result =
HTML::FillInForm->new->fill(scalarref => \$html,
fdat => {two => "new val 2"},
invalid_fields => ['one']);
my $p = HTML::TokeParser->new(\$result);
my $one = $p->get_tag('input')->[1];
is($one->{name}, 'one');
is($one->{class}, 'invalid');
my $two = $p->get_token->[2];
is($two->{name}, 'two');
isnt($two->{class},'invalid');
}
{
my $result = HTML::FillInForm->new->fill(scalarref => \$html,
fdat => {two => "new val 2"},
invalid_fields => ['one', 'two', 'three', 'four', 'five']);
my $p = HTML::TokeParser->new(\$result);
my $one = $p->get_tag('input')->[1];
is($one->{name}, 'one');
is($one->{class}, 'invalid');
my $two = $p->get_token->[2];
is($two->{name}, 'two');
is($two->{class},'existing invalid');
my $three = $p->get_token->[2];
is($three->{name},'three');
is($three->{class},'invalid');
my $four = $p->get_token->[2];
is($four->{name}, 'four');
is($four->{class}, 'invalid');
my $five = $p->get_tag('textarea')->[1];
is($five->{name},'five');
is($five->{class},'invalid');
}
{
my $result = HTML::FillInForm->new->fill(scalarref => \$html,
fdat => {two => "new val 2"},
invalid_fields => ['one', 'three'],
invalid_class => "funky");
my $p = HTML::TokeParser->new(\$result);
my $one = $p->get_tag('input')->[1];
is($one->{name}, 'one');
is($one->{class}, 'funky');
my $two = $p->get_token->[2];
is($two->{name}, 'two');
is($two->{class},'existing');
my $three = $p->get_token->[2];
is($three->{name},'three');
is($three->{class},'invalid funky');
}
done_testing();
HTML-FillInForm-2.22/t/data/ 000755 000765 000024 00000000000 14123725062 016637 5 ustar 00olafalders staff 000000 000000 HTML-FillInForm-2.22/t/03_checkbox.t 000644 000765 000024 00000002675 14123725062 020215 0 ustar 00olafalders staff 000000 000000 # -*- Mode: Perl; -*-
use strict;
$^W = 1;
print "1..2\n";
use HTML::FillInForm;
print "ok 1\n";
my $hidden_form_in = qq{\s*\s*
bar1
bar2
bar3
bar1
bar2
bar3
bar1
bar2
bar3
bar1
bar2
bar3
};
my $q = new CGI( { foo1 => '0',
foo2 => ['bar1', 'bar2',],
foo3 => '' }
);
my $output = HTML::FillInForm->fill(\$hidden_form_in, $q);
my $is_selected = join(" ",map { m/selected/ ? "yes" : "no" } grep /option/, split ("\n",$output));
if ($is_selected eq "yes no no yes yes no no no no no yes no"){
print "ok 2\n$output\n";
} else {
print "Got unexpected is_seleced for select menus:\n$is_selected\n$output\n";
print "not ok 2\n";
}
$hidden_form_in = qq{
bar1
bar2
bar3
bar1
bar2
bar3
bar1
bar2
bar3
bar1
bar2
bar3
};
$q = new CGI( { foo1 => 'bar1',
foo2 => ['bar1', 'bar2',],
foo3 => '' }
);
my $fif = new HTML::FillInForm;
$output = $fif->fill(scalarref => \$hidden_form_in,
fobject => $q);
$is_selected = join(" ",map { m/selected/ ? "yes" : "no" } grep /option/, split ("\n",$output));
if ($is_selected eq "yes no no yes yes no no no no no yes no"){
print "ok 3\n";
} else {
print "Got unexpected is_selected for select menus:\n$is_selected\n$output\n";
print "not ok 3\n";
}
# test empty option tag
$hidden_form_in = qq{