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 1;
  17