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->stash->{env};
   9     return $self->SUPER::process($c, {
  10         map { ($_ => $env->{$_}) }
  11         grep { $_ ne 'psgi.input' }
  12         grep { $_ !~/^Catalyst/ }
  13         keys %{ $env },
  14     });
  15 }
  16
  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
  26 1;
  27