+ 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};