X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestApp%2FView%2FDump.pm;fp=t%2Flib%2FTestApp%2FView%2FDump.pm;h=016df8116ae8d0b32da943a3c64e4654ef085837;hp=dff41e876713f3121ced28b240feb52e52f0ed24;hb=952ff53094bcabafb62064922bf33f5a0269450f;hpb=3efd4eb3c8b9b735b4671fcf6f0bced1f6e81a85 diff --git a/t/lib/TestApp/View/Dump.pm b/t/lib/TestApp/View/Dump.pm index dff41e8..016df81 100644 --- a/t/lib/TestApp/View/Dump.pm +++ b/t/lib/TestApp/View/Dump.pm @@ -39,6 +39,8 @@ sub process { # Remove context from reference if needed my $context = delete $reference->{_context}; + my $env = delete $reference->{env}; + if (my $log = $reference->{_log}) { $log->clear_psgi if ($log->can('psgienv')); } @@ -62,6 +64,8 @@ sub process { $reference->{_body} = $body; } + if($env) { $reference->{env} = $env } + return 1; }