Changeset 11021

Timestamp:

05/03/08 16:30:42 (5 years ago)

Author:

tokuhirom

Message:

use Moose.

Files:

• lang/perl/HTTP-Engine/branches/moose/lib/HTTP/Engine/Request.pm (modified) (1 diff)

lang/perl/HTTP-Engine/branches/moose/lib/HTTP/Engine/Request.pm

@@ -147 +147 @@
 }
 
-sub parameters {
-    my ($self, $params) = @_;
-    $self->{parameters} ||= {};
-
-    if ($params) {
-        if (ref $params) {
-            $self->{parameters} = $params;
-        } else {
-            warn(
-                "Attempt to retrieve '$params' with req->params(), " .
-                "you probably meant to call req->param('$params')" );
-        }
-    }
-    return $self->{parameters};
-}
+has parameters => (
+    is      => 'rw',
+    isa     => 'HashRef',
+    default => sub { +{} },
+);
 
 sub path {