Fix WebGUI::Session::Plack's param statement to be compatible with Ap…

…ache2::Request's.
plainblack · Aug 24, 2012 · 1adfb3f · 1adfb3f
1 parent 0d55ec0
commit 1adfb3f
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/lib/WebGUI/Session/Plack.pm b/lib/WebGUI/Session/Plack.pm
@@ -40,8 +40,16 @@ sub AUTOLOAD {
 
 # Emulate/delegate/fake Apache2::* subs
 sub uri         { shift->{request}->path_info }
-sub param       { shift->{request}->param(@_) }
-sub params      { shift->{request}->prameters->mixed(@_) }
+sub param       {
+    my $self = shift;
+    if (@_) {
+        return $self->{request}->param(@_);
+    }
+    else {
+        return $self->params;
+    }
+}
+sub params      { shift->{request}->parameters->mixed(@_) }
 sub headers_in  { shift->{request}->headers(@_) }
 sub headers_out { shift->{headers_out} }
 sub protocol    { shift->{request}->protocol(@_) }