NAME
Data::HTML::Form - Data object for HTML form.
SYNOPSIS
use Data::HTML::Form;
my $obj = Data::HTML::Form->new(%params);
my $action = $obj->action;
my $css_class = $obj->css_class;
my $enctype = $obj->enctype;
my $id = $obj->id;
my $label = $obj->label;
my $method = $obj->method;
METHODS
"new"
my $obj = Data::HTML::Form->new(%params);
Constructor.
* "action"
Form action.
Default value is undef.
* "css_class"
Form CSS class.
Default value is undef.
* "enctype"
Form enctype, attribute which specifies how the form-data should
be encoded when submitting it to the server.
Possible values are:
* (undefined - same as application/x-www-form-urlencoded)
* application/x-www-form-urlencoded
* multipart/form-data
* text/plain
Default value is undef.
* "id"
Form identifier.
Default value is undef.
* "label"
Form label.
Default value is undef.
* "method"
Form method.
Default value is 'get'.
Possible methods are: get and post
Returns instance of object.
"action"
my $action = $obj->action;
Get form action.
Returns string.
"css_class"
my $css_class = $obj->css_class;
Get CSS class for form.
Returns string.
"enctype"
my $enctype = $obj->enctype;
Get enctype, attribute which specifies how the form-data should be
encoded when submitting it to the server.
Returns string.
"id"
my $id = $obj->id;
Get form identifier.
Returns string.
"label"
my $label = $obj->label;
Get form label.
Returns string.
"method"
my $method = $obj->method;
Get form method.
Returns string.
ERRORS
new():
Parameter 'enctype' has bad value.
Value: %s
Parameter 'method' has bad value.
Value: %s
EXAMPLE1
use strict;
use warnings;
use Data::HTML::Form;
my $obj = Data::HTML::Form->new;
# Print out.
print 'Method: '.$obj->method."\n";
# Output:
# Method: get
EXAMPLE2
use strict;
use warnings;
use Data::HTML::Form;
my $obj = Data::HTML::Form->new(
'action' => '/action.pl',
'css_class' => 'form',
'enctype' => 'multipart/form-data',
'id' => 'form-id',
'label' => 'Form label',
'method' => 'post',
);
# Print out.
print 'Action: '.$obj->action."\n";
print 'CSS class: '.$obj->css_class."\n";
print 'Enctype: '.$obj->enctype."\n";
print 'Id: '.$obj->id."\n";
print 'Label: '.$obj->label."\n";
print 'Method: '.$obj->method."\n";
# Output:
# Action: /action.pl
# CSS class: form
# Enctype: multipart/form-data
# Id: form-id
# Label: Form label
# Method: post
DEPENDENCIES
Error::Pure, List::Util, Mo, Readonly.
REPOSITORY
AUTHOR
Michal Josef Špaček
LICENSE AND COPYRIGHT
© 2022-2023 Michal Josef Špaček
BSD 2-Clause License
VERSION
0.07