finally, the last of this round of syntax fixes.
This commit is contained in:
parent
83e071fde1
commit
128f265678
24 changed files with 194 additions and 164 deletions
|
|
@ -103,6 +103,27 @@ sub new {
|
|||
}
|
||||
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head2 paramsHashRef ( )
|
||||
|
||||
Gets a hash ref of all the params passed in, and their values.
|
||||
|
||||
=cut
|
||||
|
||||
sub paramsHashRef {
|
||||
my $self = shift;
|
||||
unless ($self->{_paramsHashRef}) {
|
||||
my $hash;
|
||||
foreach ($self->session->request->params) {
|
||||
$hash->{$_} = $self->process($_);
|
||||
}
|
||||
$self->{_paramsHashRef} = $hash;
|
||||
}
|
||||
return $self->{_paramsHashRef};
|
||||
}
|
||||
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head2 process ( name, type [ , default ] )
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue