test for using parameter;

ruoso · May 12, 2009 · 1a097ef · 1a097ef
1 parent 0536e77
commit 1a097ef
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/example.pl b/example.pl
@@ -34,13 +34,13 @@
                                         :private-name('(root)/blog/*/'),
                                         :regex(/ (\w+) \/? /),
                                         :begin-closure( -> $name { say "viewblog $name - begin" }),
-                                        :execute-closure( -> $name { say "viewblog $name - execute" }),
+                                        :execute-closure( -> $name { say "viewblog $name " ~ $*request.params<test> ~ " - execute" }),
                                         :finish-closure(-> $name { say "viewblog $name - finish" }) );
 $app.register-action($viewblog);
 
 my $uri = Faz::URI.new(:path('/blog/faz/bla'));
-my $request is context = Faz::Request.new(:uri($uri));
-my $response is context = 1;
+my $request = Faz::Request.new(:uri($uri), :params({ :test<"ok!"> }) );
+my $response = 1;
 $app.handle($request,$response);
 
 1;
diff --git a/lib/Faz/Request.pm b/lib/Faz/Request.pm
@@ -1,3 +1,4 @@
 role Faz::Request {
   has $.uri;
+  has %.params;
 }