X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FView%2FDump%2FEnv.pm;h=97ad279f64fe91f0ad25881b7cc22ec47249a95c;hb=6561feaea6cb3f0a84e97fc6f2bc55788fe8c393;hp=a869be3c10a70f0c032e135aa1e528a82a26a22f;hpb=7b73c8765925a05953204dbddea9ad601558f1ce;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/lib/TestApp/View/Dump/Env.pm b/t/lib/TestApp/View/Dump/Env.pm
index a869be3..97ad279 100644
--- a/t/lib/TestApp/View/Dump/Env.pm
+++ b/t/lib/TestApp/View/Dump/Env.pm
@@ -5,13 +5,23 @@ use base qw[TestApp::View::Dump];
 
 sub process {
     my ( $self, $c ) = @_;
-    my $env = $c->engine->env;
+    my $env = $c->stash->{env};
     return $self->SUPER::process($c, {
         map { ($_ => $env->{$_}) }
         grep { $_ ne 'psgi.input' }
+        grep { $_ !~/^Catalyst/ }
         keys %{ $env },
     });
 }
 
+## We override Data::Dumper here since its not reliably outputting
+## something that is roundtrip-able.
+
+sub dump {
+    my ( $self, $reference ) = @_;
+    use Data::Dump ();
+    return Data::Dump::dump($reference);
+}
+
 1;