don't dual check for form parameters
This commit is contained in:
parent
395a243d25
commit
a01f5dce37
1 changed files with 2 additions and 7 deletions
|
|
@ -105,22 +105,17 @@ sub param {
|
|||
my $field = shift;
|
||||
if ($field) {
|
||||
if ($self->session->request) {
|
||||
my @data = $self->session->request->body($field);
|
||||
return wantarray ? @data : $data[0] if (scalar(@data));
|
||||
@data = $self->session->request->param($field);
|
||||
my @data = $self->session->request->param($field);
|
||||
return wantarray ? @data : $data[0];
|
||||
} else {
|
||||
return undef;
|
||||
}
|
||||
} else {
|
||||
if ($self->session->request) {
|
||||
my %params = ();
|
||||
my %params;
|
||||
foreach ($self->session->request->param) {
|
||||
$params{$_} = 1;
|
||||
}
|
||||
foreach ($self->session->request->body) {
|
||||
$params{$_} = 1;
|
||||
}
|
||||
return keys %params;
|
||||
} else {
|
||||
return undef;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue