t/lib/TestApp/View/Dump/Env.pm

   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 ) = @_;
   8     my $env = $c->engine->env;
   9     return $self->SUPER::process($c, {
  10         map { ($_ => $env->{$_}) }
  11         grep { $_ ne 'psgi.input' }
  12         keys %{ $env },
  13     });
  14 }
  15
  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
  25 1;
  26