- my $self = shift;
- $self->{path} = $self->{cgi}->url(-absolute=>1, -path_info=>1);
- my $loc = $self->{cgi}->url(-absolute=>1);
- no warnings 'uninitialized';
- $self->{path} =~ s/^($loc)?\///;
- $self->parse_path;
- $self->{params} = { $self->{cgi}->Vars };
- $self->{query} = { $self->{cgi}->Vars };
+ my $self = shift;
+ $self->{path} = $self->{cgi}->url( -absolute => 1, -path_info => 1 );
+ my $loc = $self->{cgi}->url( -absolute => 1 );
+ no warnings 'uninitialized';
+ $self->{path} =~ s/^($loc)?\///;
+ $self->parse_path;
+ $self->parse_args;
+}
+
+sub parse_args {
+ my $self = shift;
+ my (%vars) = $self->{cgi}->Vars;
+ while ( my ( $key, $value ) = each %vars ) {
+ my @values = split "\0", $value;
+ $vars{$key} = @values <= 1 ? $values[0] : \@values;
+ }
+ $self->{params} = {%vars};
+ $self->{query} = {%vars};