$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
$c->forward('TestApp::View::Dump::Request');\r
}\r
\r
+sub uri_with_undef : Local {\r
+ my ( $self, $c ) = @_;\r
+
+ my $warnings = 0;
+ local $SIG{__WARN__} = sub { $warnings++ };\r
+\r
+ # change the current uri
+ my $uri = $c->req->uri_with( { foo => undef } );\r
+ \r
+ $c->res->header( 'X-Catalyst-warnings' => $warnings );\r
+ \r
+ $c->forward('TestApp::View::Dump::Request');\r
+}\r
+\r
1;\r