package TestApp::View::Dump::Env;

use strict;
use base qw[TestApp::View::Dump];

sub process {
    my ( $self, $c ) = @_;
    my $env = $c->engine->env;
    return $self->SUPER::process($c, {
        map { ($_ => $env->{$_}) }
        grep { $_ ne 'psgi.input' }
        keys %{ $env },
    });
}

1;

