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 ) = @_; |
7b73c876 |
8 | my $env = $c->engine->env; |
9 | return $self->SUPER::process($c, { |
10 | map { ($_ => $env->{$_}) } |
11 | grep { $_ ne 'psgi.input' } |
12 | keys %{ $env }, |
13 | }); |
e74b3d5c |
14 | } |
15 | |
df1fa879 |
16 | ## We override Data::Dumper here since its not reliably outputting |
17 | ## something that is roundtrip-able. |
18 | |
19 | sub dump { |
20 | my ( $self, $reference ) = @_; |
21 | use Data::Dump (); |
22 | return Data::Dump::dump($reference); |
23 | } |
24 | |
e74b3d5c |
25 | 1; |
26 | |