$c->forward('TestApp::View::Dump::Request');\r
}\r
\r
+sub uri_with_object : Local {\r
+ my ( $self, $c ) = @_;\r
+\r
+ my $uri = $c->req->uri_with( { a => $c->req->base } );\r
+ my %query = $uri->query_form;\r
+ \r
+ $c->res->header( 'X-Catalyst-Param-a' => $query{ a } );\r
+ \r
+ $c->forward('TestApp::View::Dump::Request');\r
+}\r
+\r
+sub uri_with_utf8 : Local {\r
+ my ( $self, $c ) = @_;\r
+\r
+ # change the current uri\r
+ my $uri = $c->req->uri_with( { unicode => "\x{2620}" } );\r
+ \r
+ $c->res->header( 'X-Catalyst-uri-with' => "$uri" );\r
+ \r
+ $c->forward('TestApp::View::Dump::Request');\r
+}\r
+\r
1;\r