bug fixes from running t/FormGetName.t
This commit is contained in:
parent
3b06849a80
commit
6a9a63c4b0
26 changed files with 70 additions and 47 deletions
|
|
@ -522,6 +522,29 @@ sub session {
|
|||
}
|
||||
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head2 set ( key, var )
|
||||
|
||||
Set a property of this form object.
|
||||
|
||||
=head3 key
|
||||
|
||||
The name of the property to set.
|
||||
|
||||
=head3 var
|
||||
|
||||
The value to set the property to.
|
||||
|
||||
=cut
|
||||
|
||||
sub set {
|
||||
my $self = shift;
|
||||
my $key = shift;
|
||||
my $value = shift;
|
||||
$self->{_params}{$key} = $value;
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head2 toHtml ( )
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue