git.shiar.nl
/
perl
/
html-form-simple.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ignore empty style and class attributes
[perl/html-form-simple.git]
/
lib
/
HTML
/
Form
/
Simple.pm
diff --git
a/lib/HTML/Form/Simple.pm
b/lib/HTML/Form/Simple.pm
index b4e42aa947260cf57be5d1d17519991f454f54d8..6e84888296e51a5deb508b6232f69a0c00c085cf 100644
(file)
--- a/
lib/HTML/Form/Simple.pm
+++ b/
lib/HTML/Form/Simple.pm
@@
-22,7
+22,7
@@
sub tag {
# strip empty if it shouldn't be
defined $attr->{$_} and $attr->{$_} eq '' and delete $attr->{$_}
# strip empty if it shouldn't be
defined $attr->{$_} and $attr->{$_} eq '' and delete $attr->{$_}
- for qw(id type);
+ for qw(id type
class style
);
my $return = '<' . $tag;
my $return = '<' . $tag;
@@
-129,7
+129,12
@@
HTML::Form::Simple
my $input = HTML::Form::Simple->new;
say $input->start; # <form>
printf "<label>%s: %s</label>\n", @$_ for (
my $input = HTML::Form::Simple->new;
say $input->start; # <form>
printf "<label>%s: %s</label>\n", @$_ for (
- [ 'Your Name' => $input->text(username => 'Mr. Default') ],
+ [ 'Your Name' => $input->text(
+ user => 'Mr. Default'
+ ) ],
+ [ Message => $input->text(
+ msg => 'Textarea default', {rows => 4, style => 'background:red'}
+ ) ],
[ Colour => $input->select(
favcolour => [qw(Blue Green Red)], 'Green'
) ],
[ Colour => $input->select(
favcolour => [qw(Blue Green Red)], 'Green'
) ],