Don't dump psgi.input as it can't be deserialized.

[catagits/Catalyst-Runtime.git] / t / lib / TestApp / View / Dump / Env.pm

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;