Commit | Line | Data |
e74b3d5c |
1 | package TestApp::View::Dump::Env; |
2 | |
3 | use strict; |
4 | use base qw[TestApp::View::Dump]; |
5 | |
6 | sub process { |
7 | my ( $self, $c ) = @_; |
faa02805 |
8 | my $env = $c->stash->{env}; |
7b73c876 |
9 | return $self->SUPER::process($c, { |
10 | map { ($_ => $env->{$_}) } |
11 | grep { $_ ne 'psgi.input' } |
6561feae |
12 | grep { $_ !~/^Catalyst/ } |
7b73c876 |
13 | keys %{ $env }, |
14 | }); |
e74b3d5c |
15 | } |
16 | |
df1fa879 |
17 | ## We override Data::Dumper here since its not reliably outputting |
18 | ## something that is roundtrip-able. |
19 | |
20 | sub dump { |
21 | my ( $self, $reference ) = @_; |
22 | use Data::Dump (); |
23 | return Data::Dump::dump($reference); |
24 | } |
25 | |
e74b3d5c |
26 | 1; |
27 | |