summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
5c199c0)
no warnings 'uninitialized';
$self->{path} =~ s/^($loc)?\///;
$self->parse_path;
no warnings 'uninitialized';
$self->{path} =~ s/^($loc)?\///;
$self->parse_path;
+ $self->parse_args;
+}
+
+sub parse_args {
+ my $self = shift;
$self->{params} = { $self->{cgi}->Vars };
$self->{query} = { $self->{cgi}->Vars };
}
$self->{params} = { $self->{cgi}->Vars };
$self->{query} = { $self->{cgi}->Vars };
}
$self->{path} = $url->path;
$self->{path} =~ s/^$root//i if $root;
$self->parse_path;
$self->{path} = $url->path;
$self->{path} =~ s/^$root//i if $root;
$self->parse_path;
+ $self->parse_args;
+}
+
+sub parse_args {
+ my $self = shift;
+ $self->{params} = $url->query_form_hash;
$self->{query} = $url->query_form_hash;
}
$self->{query} = $url->query_form_hash;
}