1 package TestApp::View::Dump::Env;
4 use base qw[TestApp::View::Dump];
8 my $env = $c->stash->{env};
9 return $self->SUPER::process($c, {
10 map { ($_ => $env->{$_}) }
11 grep { $_ ne 'psgi.input' }
12 grep { $_ !~/^Catalyst/ }
17 ## We override Data::Dumper here since its not reliably outputting
18 ## something that is roundtrip-able.
21 my ( $self, $reference ) = @_;
23 return Data::Dump::dump($reference);