Hello community, here is the log from the commit of package perl-HTML-Form for openSUSE:Factory checked in at 2019-10-10 11:52:14 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-HTML-Form (Old) and /work/SRC/openSUSE:Factory/.perl-HTML-Form.new.2352 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-HTML-Form" Thu Oct 10 11:52:14 2019 rev:12 rq:736085 version:6.05 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-HTML-Form/perl-HTML-Form.changes 2019-04-04 14:11:32.333272470 +0200 +++ /work/SRC/openSUSE:Factory/.perl-HTML-Form.new.2352/perl-HTML-Form.changes 2019-10-10 11:52:16.471507670 +0200 @@ -1,0 +2,10 @@ +Mon Oct 7 10:33:52 UTC 2019 - <[email protected]> + +- updated to 6.05 + see /usr/share/doc/packages/perl-HTML-Form/Changes + + 6.05 2019-10-04 20:28:20Z + - Update pod as requested in [RT#87689] (GH#16) (Lance Wicks and Julien + Fiegehenn) + +------------------------------------------------------------------- Old: ---- HTML-Form-6.04.tar.gz New: ---- HTML-Form-6.05.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-HTML-Form.spec ++++++ --- /var/tmp/diff_new_pack.hyD6vS/_old 2019-10-10 11:52:17.755504262 +0200 +++ /var/tmp/diff_new_pack.hyD6vS/_new 2019-10-10 11:52:17.759504251 +0200 @@ -17,7 +17,7 @@ Name: perl-HTML-Form -Version: 6.04 +Version: 6.05 Release: 0 %define cpan_name HTML-Form Summary: Class that represents an HTML form element @@ -66,7 +66,7 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes README +%doc Changes %license LICENSE %changelog ++++++ HTML-Form-6.04.tar.gz -> HTML-Form-6.05.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.04/Changes new/HTML-Form-6.05/Changes --- old/HTML-Form-6.04/Changes 2019-03-25 19:22:53.000000000 +0100 +++ new/HTML-Form-6.05/Changes 2019-10-04 22:28:24.000000000 +0200 @@ -1,5 +1,9 @@ Change history for HTML-Form +6.05 2019-10-04 20:28:20Z + - Update pod as requested in [RT#87689] (GH#16) (Lance Wicks and Julien + Fiegehenn) + 6.04 2019-03-25 18:22:51Z - Convert to Dist::Zilla - Add an autocomplete method (GH #13) (Olaf Alders) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.04/MANIFEST new/HTML-Form-6.05/MANIFEST --- old/HTML-Form-6.04/MANIFEST 2019-03-25 19:22:53.000000000 +0100 +++ new/HTML-Form-6.05/MANIFEST 2019-10-04 22:28:24.000000000 +0200 @@ -6,7 +6,6 @@ META.json META.yml Makefile.PL -README cpanfile dist.ini lib/HTML/Form.pm diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.04/META.json new/HTML-Form-6.05/META.json --- old/HTML-Form-6.04/META.json 2019-03-25 19:22:53.000000000 +0100 +++ new/HTML-Form-6.05/META.json 2019-10-04 22:28:25.000000000 +0200 @@ -79,56 +79,56 @@ "provides" : { "HTML::Form" : { "file" : "lib/HTML/Form.pm", - "version" : "6.04" + "version" : "6.05" }, "HTML::Form::FileInput" : { "file" : "lib/HTML/Form.pm", - "version" : "6.04" + "version" : "6.05" }, "HTML::Form::IgnoreInput" : { "file" : "lib/HTML/Form.pm", - "version" : "6.04" + "version" : "6.05" }, "HTML::Form::ImageInput" : { "file" : "lib/HTML/Form.pm", - "version" : "6.04" + "version" : "6.05" }, "HTML::Form::Input" : { "file" : "lib/HTML/Form.pm", - "version" : "6.04" + "version" : "6.05" }, "HTML::Form::KeygenInput" : { "file" : "lib/HTML/Form.pm", - "version" : "6.04" + "version" : "6.05" }, "HTML::Form::ListInput" : { "file" : "lib/HTML/Form.pm", - "version" : "6.04" + "version" : "6.05" }, "HTML::Form::SubmitInput" : { "file" : "lib/HTML/Form.pm", - "version" : "6.04" + "version" : "6.05" }, "HTML::Form::TextInput" : { "file" : "lib/HTML/Form.pm", - "version" : "6.04" + "version" : "6.05" } }, "release_status" : "stable", "resources" : { "bugtracker" : { - "web" : "https://github.com/libwww-perl/html-form/issues"; + "web" : "https://github.com/libwww-perl/HTML-Form/issues"; }, - "homepage" : "https://github.com/libwww-perl/html-form";, + "homepage" : "https://github.com/libwww-perl/HTML-Form";, "repository" : { "type" : "git", - "url" : "https://github.com/libwww-perl/html-form.git";, - "web" : "https://github.com/libwww-perl/html-form"; + "url" : "https://github.com/libwww-perl/HTML-Form.git";, + "web" : "https://github.com/libwww-perl/HTML-Form"; }, "x_IRC" : "irc://irc.perl.org/#lwp", "x_MailingList" : "mailto:[email protected]"; }, - "version" : "6.04", + "version" : "6.05", "x_Dist_Zilla" : { "perl" : { "version" : "5.026001" @@ -184,8 +184,8 @@ "meta_noindex" : 1 }, "Dist::Zilla::Role::ModuleMetadata" : { - "Module::Metadata" : "1.000033", - "version" : "0.004" + "Module::Metadata" : "1.000036", + "version" : "0.006" } }, "name" : "MetaProvides::Package", @@ -215,7 +215,7 @@ "class" : "Dist::Zilla::Plugin::Git::Contributors", "config" : { "Dist::Zilla::Plugin::Git::Contributors" : { - "git_version" : "2.20.1", + "git_version" : "2.23.0", "include_authors" : 0, "include_releaser" : 1, "order_by" : "name", @@ -247,8 +247,14 @@ }, { "class" : "Dist::Zilla::Plugin::InstallGuide", + "config" : { + "Dist::Zilla::Role::ModuleMetadata" : { + "Module::Metadata" : "1.000036", + "version" : "0.006" + } + }, "name" : "InstallGuide", - "version" : "1.200012" + "version" : "1.200013" }, { "class" : "Dist::Zilla::Plugin::ExecDir", @@ -367,8 +373,13 @@ }, { "class" : "Dist::Zilla::Plugin::Test::MinimumVersion", + "config" : { + "Dist::Zilla::Plugin::Test::MinimumVersion" : { + "max_target_perl" : null + } + }, "name" : "Test::MinimumVersion", - "version" : "2.000008" + "version" : "2.000010" }, { "class" : "Dist::Zilla::Plugin::PodSyntaxTests", @@ -415,7 +426,7 @@ "changelog" : "Changes" }, "Dist::Zilla::Role::Git::Repo" : { - "git_version" : "2.20.1", + "git_version" : "2.23.0", "repo_root" : "." } }, @@ -548,7 +559,7 @@ "changelog" : "Changes" }, "Dist::Zilla::Role::Git::Repo" : { - "git_version" : "2.20.1", + "git_version" : "2.23.0", "repo_root" : "." }, "Dist::Zilla::Role::Git::StringFormatter" : { @@ -565,12 +576,12 @@ "branch" : null, "changelog" : "Changes", "signed" : 0, - "tag" : "v6.04", + "tag" : "v6.05", "tag_format" : "v%V", "tag_message" : "v%V" }, "Dist::Zilla::Role::Git::Repo" : { - "git_version" : "2.20.1", + "git_version" : "2.23.0", "repo_root" : "." }, "Dist::Zilla::Role::Git::StringFormatter" : { @@ -620,7 +631,7 @@ "changelog" : "Changes" }, "Dist::Zilla::Role::Git::Repo" : { - "git_version" : "2.20.1", + "git_version" : "2.23.0", "repo_root" : "." }, "Dist::Zilla::Role::Git::StringFormatter" : { @@ -640,7 +651,7 @@ "remotes_must_exist" : 1 }, "Dist::Zilla::Role::Git::Repo" : { - "git_version" : "2.20.1", + "git_version" : "2.23.0", "repo_root" : "." } }, @@ -745,6 +756,8 @@ "Jacob J <[email protected]>", "jefflee <[email protected]>", "john9art <[email protected]>", + "Julien Fiegehenn <[email protected]>", + "Lance Wicks <[email protected]>", "Lukas Mai <[email protected]>", "Mark Stosberg <[email protected]>", "Mark Stosberg <[email protected]>", @@ -775,6 +788,6 @@ "Zefram <[email protected]>" ], "x_generated_by_perl" : "v5.26.1", - "x_serialization_backend" : "Cpanel::JSON::XS version 4.04" + "x_serialization_backend" : "Cpanel::JSON::XS version 4.10" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.04/META.yml new/HTML-Form-6.05/META.yml --- old/HTML-Form-6.04/META.yml 2019-03-25 19:22:53.000000000 +0100 +++ new/HTML-Form-6.05/META.yml 2019-10-04 22:28:24.000000000 +0200 @@ -26,31 +26,31 @@ provides: HTML::Form: file: lib/HTML/Form.pm - version: '6.04' + version: '6.05' HTML::Form::FileInput: file: lib/HTML/Form.pm - version: '6.04' + version: '6.05' HTML::Form::IgnoreInput: file: lib/HTML/Form.pm - version: '6.04' + version: '6.05' HTML::Form::ImageInput: file: lib/HTML/Form.pm - version: '6.04' + version: '6.05' HTML::Form::Input: file: lib/HTML/Form.pm - version: '6.04' + version: '6.05' HTML::Form::KeygenInput: file: lib/HTML/Form.pm - version: '6.04' + version: '6.05' HTML::Form::ListInput: file: lib/HTML/Form.pm - version: '6.04' + version: '6.05' HTML::Form::SubmitInput: file: lib/HTML/Form.pm - version: '6.04' + version: '6.05' HTML::Form::TextInput: file: lib/HTML/Form.pm - version: '6.04' + version: '6.05' requires: Carp: '0' Encode: '2' @@ -64,10 +64,10 @@ resources: IRC: irc://irc.perl.org/#lwp MailingList: mailto:[email protected] - bugtracker: https://github.com/libwww-perl/html-form/issues - homepage: https://github.com/libwww-perl/html-form - repository: https://github.com/libwww-perl/html-form.git -version: '6.04' + bugtracker: https://github.com/libwww-perl/HTML-Form/issues + homepage: https://github.com/libwww-perl/HTML-Form + repository: https://github.com/libwww-perl/HTML-Form.git +version: '6.05' x_Dist_Zilla: perl: version: '5.026001' @@ -112,8 +112,8 @@ inherit_version: '1' meta_noindex: '1' Dist::Zilla::Role::ModuleMetadata: - Module::Metadata: '1.000033' - version: '0.004' + Module::Metadata: '1.000036' + version: '0.006' name: MetaProvides::Package version: '2.004003' - @@ -136,7 +136,7 @@ class: Dist::Zilla::Plugin::Git::Contributors config: Dist::Zilla::Plugin::Git::Contributors: - git_version: 2.20.1 + git_version: 2.23.0 include_authors: 0 include_releaser: 1 order_by: name @@ -161,8 +161,12 @@ version: '6.012' - class: Dist::Zilla::Plugin::InstallGuide + config: + Dist::Zilla::Role::ModuleMetadata: + Module::Metadata: '1.000036' + version: '0.006' name: InstallGuide - version: '1.200012' + version: '1.200013' - class: Dist::Zilla::Plugin::ExecDir name: ExecDir @@ -253,8 +257,11 @@ version: '0.006' - class: Dist::Zilla::Plugin::Test::MinimumVersion + config: + Dist::Zilla::Plugin::Test::MinimumVersion: + max_target_perl: ~ name: Test::MinimumVersion - version: '2.000008' + version: '2.000010' - class: Dist::Zilla::Plugin::PodSyntaxTests name: PodSyntaxTests @@ -291,7 +298,7 @@ allow_dirty_match: [] changelog: Changes Dist::Zilla::Role::Git::Repo: - git_version: 2.20.1 + git_version: 2.23.0 repo_root: . name: Git::Check version: '2.046' @@ -391,7 +398,7 @@ allow_dirty_match: [] changelog: Changes Dist::Zilla::Role::Git::Repo: - git_version: 2.20.1 + git_version: 2.23.0 repo_root: . Dist::Zilla::Role::Git::StringFormatter: time_zone: local @@ -404,11 +411,11 @@ branch: ~ changelog: Changes signed: 0 - tag: v6.04 + tag: v6.05 tag_format: v%V tag_message: v%V Dist::Zilla::Role::Git::Repo: - git_version: 2.20.1 + git_version: 2.23.0 repo_root: . Dist::Zilla::Role::Git::StringFormatter: time_zone: local @@ -445,7 +452,7 @@ - (?^:^lib/.*\.pm$) changelog: Changes Dist::Zilla::Role::Git::Repo: - git_version: 2.20.1 + git_version: 2.23.0 repo_root: . Dist::Zilla::Role::Git::StringFormatter: time_zone: local @@ -459,7 +466,7 @@ - origin remotes_must_exist: 1 Dist::Zilla::Role::Git::Repo: - git_version: 2.20.1 + git_version: 2.23.0 repo_root: . name: Git::Push version: '2.046' @@ -545,6 +552,8 @@ - 'Jacob J <[email protected]>' - 'jefflee <[email protected]>' - 'john9art <[email protected]>' + - 'Julien Fiegehenn <[email protected]>' + - 'Lance Wicks <[email protected]>' - 'Lukas Mai <[email protected]>' - 'Mark Stosberg <[email protected]>' - 'Mark Stosberg <[email protected]>' @@ -574,4 +583,4 @@ - 'Yuri Karaban <[email protected]>' - 'Zefram <[email protected]>' x_generated_by_perl: v5.26.1 -x_serialization_backend: 'YAML::Tiny version 1.70' +x_serialization_backend: 'YAML::Tiny version 1.73' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.04/Makefile.PL new/HTML-Form-6.05/Makefile.PL --- old/HTML-Form-6.04/Makefile.PL 2019-03-25 19:22:53.000000000 +0100 +++ new/HTML-Form-6.05/Makefile.PL 2019-10-04 22:28:25.000000000 +0200 @@ -35,7 +35,7 @@ "lib" => 0, "warnings" => 0 }, - "VERSION" => "6.04", + "VERSION" => "6.05", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.04/README new/HTML-Form-6.05/README --- old/HTML-Form-6.04/README 2019-03-25 19:22:53.000000000 +0100 +++ new/HTML-Form-6.05/README 1970-01-01 01:00:00.000000000 +0100 @@ -1,399 +0,0 @@ -NAME - HTML::Form - Class that represents an HTML form element - -SYNOPSIS - use HTML::Form; - $form = HTML::Form->parse($html, $base_uri); - $form->value(query => "Perl"); - - use LWP::UserAgent; - $ua = LWP::UserAgent->new; - $response = $ua->request($form->click); - -DESCRIPTION - Objects of the `HTML::Form' class represents a single HTML `<form> ... - </form>' instance. A form consists of a sequence of inputs that usually - have names, and which can take on various values. The state of a form - can be tweaked and it can then be asked to provide `HTTP::Request' - objects that can be passed to the request() method of `LWP::UserAgent'. - - The following methods are available: - - @forms = HTML::Form->parse( $html_document, $base_uri ) - @forms = HTML::Form->parse( $html_document, base => $base_uri, %opt ) - @forms = HTML::Form->parse( $response, %opt ) - The parse() class method will parse an HTML document and build up - `HTML::Form' objects for each <form> element found. If called in - scalar context only returns the first <form>. Returns an empty list - if there are no forms to be found. - - The required arguments is the HTML document to parse - ($html_document) and the URI used to retrieve the document - ($base_uri). The base URI is needed to resolve relative action URIs. - The provided HTML document should be a Unicode string (or US-ASCII). - - By default HTML::Form assumes that the original document was UTF-8 - encoded and thus encode forms that don't specify an explict - *accept-charset* as UTF-8. The charset assumed can be overridden by - providing the `charset' option to parse(). It's a good idea to be - explict about this parameter as well, thus the recommended simplest - invocation becomes: - - my @forms = HTML::Form->parse( - Encode::decode($encoding, $html_document_bytes), - base => $base_uri, - charset => $encoding, - ); - - If the document was retrieved with LWP then the response object - provide methods to obtain a proper value for `base' and `charset': - - my $ua = LWP::UserAgent->new; - my $response = $ua->get("http://www.example.com/form.html";); - my @forms = HTML::Form->parse($response->decoded_content, - base => $response->base, - charset => $response->content_charset, - ); - - In fact, the parse() method can parse from an `HTTP::Response' - object directly, so the example above can be more conveniently - written as: - - my $ua = LWP::UserAgent->new; - my $response = $ua->get("http://www.example.com/form.html";); - my @forms = HTML::Form->parse($response); - - Note that any object that implements a decoded_content(), base() and - content_charset() method with similar behaviour as `HTTP::Response' - will do. - - Additional options might be passed in to control how the parse - method behaves. The following are all the options currently - recognized: - - `base => $uri' - This is the URI used to retrive the original document. This - option is not optional ;-) - - `charset => $str' - Specify what charset the original document was encoded in. This - is used as the default for accept_charset. If not provided this - defaults to "UTF-8". - - `verbose => $bool' - Warn (print messages to STDERR) about any bad HTML form - constructs found. You can trap these with $SIG{__WARN__}. - - `strict => $bool' - Initialize any form objects with the given strict attribute. - - $method = $form->method - $form->method( $new_method ) - This method is gets/sets the *method* name used for the - `HTTP::Request' generated. It is a string like "GET" or "POST". - - $action = $form->action - $form->action( $new_action ) - This method gets/sets the URI which we want to apply the request - *method* to. - - $enctype = $form->enctype - $form->enctype( $new_enctype ) - This method gets/sets the encoding type for the form data. It is a - string like "application/x-www-form-urlencoded" or - "multipart/form-data". - - $accept = $form->accept_charset - $form->accept_charset( $new_accept ) - This method gets/sets the list of charset encodings that the server - processing the form accepts. Current implementation supports only - one-element lists. Default value is "UNKNOWN" which we interpret as - a request to use document charset as specified by the 'charset' - parameter of the parse() method. - - $value = $form->attr( $name ) - $form->attr( $name, $new_value ) - This method give access to the original HTML attributes of the - <form> tag. The $name should always be passed in lower case. - - Example: - - @f = HTML::Form->parse( $html, $foo ); - @f = grep $_->attr("id") eq "foo", @f; - die "No form named 'foo' found" unless @f; - $foo = shift @f; - - $bool = $form->strict - $form->strict( $bool ) - Gets/sets the strict attribute of a form. If the strict is turned on - the methods that change values of the form will croak if you try to - set illegal values or modify readonly fields. The default is not to - be strict. - - @inputs = $form->inputs - This method returns the list of inputs in the form. If called in - scalar context it returns the number of inputs contained in the - form. See INPUTS for what methods are available for the input - objects returned. - - $input = $form->find_input( $selector ) - $input = $form->find_input( $selector, $type ) - $input = $form->find_input( $selector, $type, $index ) - This method is used to locate specific inputs within the form. All - inputs that match the arguments given are returned. In scalar - context only the first is returned, or `undef' if none match. - - If $selector is specified, then the input's name, id, class - attribute must match. A selector prefixed with '#' must match the id - attribute of the input. A selector prefixed with '.' matches the - class attribute. A selector prefixed with '^' or with no prefix - matches the name attribute. - - If $type is specified, then the input must have the specified type. - The following type names are used: "text", "password", "hidden", - "textarea", "file", "image", "submit", "radio", "checkbox" and - "option". - - The $index is the sequence number of the input matched where 1 is - the first. If combined with $name and/or $type then it select the - *n*th input with the given name and/or type. - - $value = $form->value( $selector ) - $form->value( $selector, $new_value ) - The value() method can be used to get/set the value of some input. - If strict is enabled and no input has the indicated name, then this - method will croak. - - If multiple inputs have the same name, only the first one will be - affected. - - The call: - - $form->value('foo') - - is basically a short-hand for: - - $form->find_input('foo')->value; - - @names = $form->param - @values = $form->param( $name ) - $form->param( $name, $value, ... ) - $form->param( $name, \@values ) - Alternative interface to examining and setting the values of the - form. - - If called without arguments then it returns the names of all the - inputs in the form. The names will not repeat even if multiple - inputs have the same name. In scalar context the number of different - names is returned. - - If called with a single argument then it returns the value or values - of inputs with the given name. If called in scalar context only the - first value is returned. If no input exists with the given name, - then `undef' is returned. - - If called with 2 or more arguments then it will set values of the - named inputs. This form will croak if no inputs have the given name - or if any of the values provided does not fit. Values can also be - provided as a reference to an array. This form will allow unsetting - all values with the given name as well. - - This interface resembles that of the param() function of the CGI - module. - - $form->try_others( \&callback ) - This method will iterate over all permutations of unvisited - enumerated values (<select>, <radio>, <checkbox>) and invoke the - callback for each. The callback is passed the $form as argument. The - return value from the callback is ignored and the try_others() - method itself does not return anything. - - $request = $form->make_request - Will return an `HTTP::Request' object that reflects the current - setting of the form. You might want to use the click() method - instead. - - $request = $form->click - $request = $form->click( $selector ) - $request = $form->click( $x, $y ) - $request = $form->click( $selector, $x, $y ) - Will "click" on the first clickable input (which will be of type - `submit' or `image'). The result of clicking is an `HTTP::Request' - object that can then be passed to `LWP::UserAgent' if you want to - obtain the server response. - - If a $selector is specified, we will click on the first clickable - input matching the selector, and the method will croak if no - matching clickable input is found. If $selector is *not* specified, - then it is ok if the form contains no clickable inputs. In this case - the click() method returns the same request as the make_request() - method would do. See description of the find_input() method above - for how the $selector is specified. - - If there are multiple clickable inputs with the same name, then - there is no way to get the click() method of the `HTML::Form' to - click on any but the first. If you need this you would have to - locate the input with find_input() and invoke the click() method on - the given input yourself. - - A click coordinate pair can also be provided, but this only makes a - difference if you clicked on an image. The default coordinate is - (1,1). The upper-left corner of the image is (0,0), but some badly - coded CGI scripts are known to not recognize this. Therefore (1,1) - was selected as a safer default. - - @kw = $form->form - Returns the current setting as a sequence of key/value pairs. Note - that keys might be repeated, which means that some values might be - lost if the return values are assigned to a hash. - - In scalar context this method returns the number of key/value pairs - generated. - - $form->dump - Returns a textual representation of current state of the form. - Mainly useful for debugging. If called in void context, then the - dump is printed on STDERR. - -INPUTS - An `HTML::Form' objects contains a sequence of *inputs*. References to - the inputs can be obtained with the $form->inputs or $form->find_input - methods. - - Note that there is *not* a one-to-one correspondence between input - *objects* and <input> *elements* in the HTML document. An input object - basically represents a name/value pair, so when multiple HTML elements - contribute to the same name/value pair in the submitted form they are - combined. - - The input elements that are mapped one-to-one are "text", "textarea", - "password", "hidden", "file", "image", "submit" and "checkbox". For the - "radio" and "option" inputs the story is not as simple: All <input - type="radio"> elements with the same name will contribute to the same - input radio object. The number of radio input objects will be the same - as the number of distinct names used for the <input type="radio"> - elements. For a <select> element without the `multiple' attribute there - will be one input object of type of "option". For a <select multiple> - element there will be one input object for each contained <option> - element. Each one of these option objects will have the same name. - - The following methods are available for the *input* objects: - - $input->type - Returns the type of this input. The type is one of the following - strings: "text", "password", "hidden", "textarea", "file", "image", - "submit", "radio", "checkbox" or "option". - - $name = $input->name - $input->name( $new_name ) - This method can be used to get/set the current name of the input. - - $input->id - $input->class - These methods can be used to get/set the current id or class - attribute for the input. - - $input->selected( $selector ) - Returns TRUE if the given selector matched the input. See the - description of the find_input() method above for a description of - the selector syntax. - - $value = $input->value - $input->value( $new_value ) - This method can be used to get/set the current value of an input. - - If strict is enabled and the input only can take an enumerated list - of values, then it is an error to try to set it to something else - and the method will croak if you try. - - You will also be able to set the value of read-only inputs, but a - warning will be generated if running under `perl -w'. - - $input->possible_values - Returns a list of all values that an input can take. For inputs that - do not have discrete values, this returns an empty list. - - $input->other_possible_values - Returns a list of all values not tried yet. - - $input->value_names - For some inputs the values can have names that are different from - the values themselves. The number of names returned by this method - will match the number of values reported by $input->possible_values. - - When setting values using the value() method it is also possible to - use the value names in place of the value itself. - - $bool = $input->readonly - $input->readonly( $bool ) - This method is used to get/set the value of the readonly attribute. - You are allowed to modify the value of readonly inputs, but setting - the value will generate some noise when warnings are enabled. Hidden - fields always start out readonly. - - $bool = $input->disabled - $input->disabled( $bool ) - This method is used to get/set the value of the disabled attribute. - Disabled inputs do not contribute any key/value pairs for the form - value. - - $input->form_name_value - Returns a (possible empty) list of key/value pairs that should be - incorporated in the form value from this input. - - $input->check - Some input types represent toggles that can be turned on/off. This - includes "checkbox" and "option" inputs. Calling this method turns - this input on without having to know the value name. If the input is - already on, then nothing happens. - - This has the same effect as: - - $input->value($input->possible_values[1]); - - The input can be turned off with: - - $input->value(undef); - - $input->click($form, $x, $y) - Some input types (currently "submit" buttons and "images") can be - clicked to submit the form. The click() method returns the - corresponding `HTTP::Request' object. - - If the input is of type `file', then it has these additional methods: - - $input->file - This is just an alias for the value() method. It sets the filename - to read data from. - - For security reasons this field will never be initialized from the - parsing of a form. This prevents the server from triggering stealth - uploads of arbitrary files from the client machine. - - $filename = $input->filename - $input->filename( $new_filename ) - This get/sets the filename reported to the server during file - upload. This attribute defaults to the value reported by the file() - method. - - $content = $input->content - $input->content( $new_content ) - This get/sets the file content provided to the server during file - upload. This method can be used if you do not want the content to be - read from an actual file. - - @headers = $input->headers - input->headers($key => $value, .... ) - This get/set additional header fields describing the file uploaded. - This can for instance be used to set the `Content-Type' reported for - the file. - -SEE ALSO - LWP, LWP::UserAgent, HTML::Parser - -COPYRIGHT - Copyright 1998-2008 Gisle Aas. - - This library is free software; you can redistribute it and/or modify it - under the same terms as Perl itself. - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.04/dist.ini new/HTML-Form-6.05/dist.ini --- old/HTML-Form-6.04/dist.ini 2019-03-25 19:22:53.000000000 +0100 +++ new/HTML-Form-6.05/dist.ini 2019-10-04 22:28:24.000000000 +0200 @@ -109,7 +109,6 @@ ; Create Readme [ReadmeAnyFromPod / Markdown_Readme] -source_filename = lib/LWP/MediaTypes.pm type = markdown filename = README.md location = root diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.04/lib/HTML/Form.pm new/HTML-Form-6.05/lib/HTML/Form.pm --- old/HTML-Form-6.04/lib/HTML/Form.pm 2019-03-25 19:22:53.000000000 +0100 +++ new/HTML-Form-6.05/lib/HTML/Form.pm 2019-10-04 22:28:25.000000000 +0200 @@ -6,7 +6,7 @@ use Encode (); use vars qw($VERSION); -our $VERSION = '6.04'; +our $VERSION = '6.05'; my %form_tags = map {$_ => 1} qw(input textarea button select option); @@ -325,6 +325,22 @@ $self; } +=item $form->push_input( $type, \%attr, $verbose ) + +This method adds additional inputs to the form. +The first argument is the type of input (e.g. hidden, option, etc.). +The second argument is a reference to a hash of the input attributes. +The third argument is optional, and will issue warnings about unknown input types. + +Example: + + push_input( 'hidden', { + name => 'NewFormElement', + id => 'NewFormElementId', + value => 'some value', + }); + +=cut sub push_input { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.04/t/form.t new/HTML-Form-6.05/t/form.t --- old/HTML-Form-6.04/t/form.t 2019-03-25 19:22:53.000000000 +0100 +++ new/HTML-Form-6.05/t/form.t 2019-10-04 22:28:24.000000000 +0200 @@ -128,10 +128,10 @@ my $filename = sprintf "foo-%08d.txt", $$; die if -e $filename; -open(FILE, ">$filename") || die; -binmode(FILE); -print FILE "This is some text\n"; -close(FILE) || die; +open my $file, ">", $filename || die; +binmode($file); +print $file "This is some text\n"; +close($file) || die; $f->value(f => $filename); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.04/xt/author/minimum-version.t new/HTML-Form-6.05/xt/author/minimum-version.t --- old/HTML-Form-6.04/xt/author/minimum-version.t 2019-03-25 19:22:53.000000000 +0100 +++ new/HTML-Form-6.05/xt/author/minimum-version.t 2019-10-04 22:28:25.000000000 +0200 @@ -1,6 +1,6 @@ -#!perl +use strict; +use warnings; use Test::More; - use Test::MinimumVersion; all_minimum_version_from_metayml_ok(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.04/xt/author/pod-spell.t new/HTML-Form-6.05/xt/author/pod-spell.t --- old/HTML-Form-6.04/xt/author/pod-spell.t 2019-03-25 19:22:53.000000000 +0100 +++ new/HTML-Form-6.05/xt/author/pod-spell.t 2019-10-04 22:28:25.000000000 +0200 @@ -30,6 +30,7 @@ Denaxas FWILES Father +Fiegehenn Finch Form Froehlich @@ -47,11 +48,13 @@ Hukins Ian Jacob +Julien Kapranoff Karaban Kennedy Kilgore Koenig +Lance Lipcon Lukas MARKSTOS @@ -86,6 +89,7 @@ Tourbin Ville Wheeler +Wicks Yamaguchi Yuri Zefram @@ -115,6 +119,7 @@ john9art ka lib +lw mai mark mschilli @@ -129,6 +134,7 @@ sasao sburke shaohua +simbabque slaven sprout srezic diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-Form-6.04/xt/release/changes_has_content.t new/HTML-Form-6.05/xt/release/changes_has_content.t --- old/HTML-Form-6.04/xt/release/changes_has_content.t 2019-03-25 19:22:53.000000000 +0100 +++ new/HTML-Form-6.05/xt/release/changes_has_content.t 2019-10-04 22:28:25.000000000 +0200 @@ -8,7 +8,7 @@ note 'Checking Changes'; my $changes_file = 'Changes'; -my $newver = '6.04'; +my $newver = '6.05'; my $trial_token = '-TRIAL'; my $encoding = 'UTF-8';
