X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Controller-WrapCGI.git;a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FRoot.pm;h=a0557a70b9e775bec52a323da729569f8e266b13;hp=054f5615a053189784b2626664117b63a89cd0c7;hb=d5bb451f3dca637593889125f913915dbc88d5a7;hpb=a032b7f8e3075e9c44f33d4a1e728fac48c5a0e2

diff --git a/t/lib/TestApp/Controller/Root.pm b/t/lib/TestApp/Controller/Root.pm
index 054f561..a0557a7 100644
--- a/t/lib/TestApp/Controller/Root.pm
+++ b/t/lib/TestApp/Controller/Root.pm
@@ -9,6 +9,9 @@ my $cgi = sub {
     my $cgi = CGI->new;
     print $cgi->header;
     print 'foo:',$cgi->param('foo'),' bar:',$cgi->param('bar');
+    if (my $fh = $cgi->param('baz')) {
+      print 'baz:',<$fh>;
+    }
 };
 
 sub handle_cgi : Path('/cgi-bin/test.cgi') {