$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