20 lines
427 B
Perl
20 lines
427 B
Perl
package WebGUI::Middleware::Debug::Environment;
|
|
use 5.008;
|
|
use strict;
|
|
use warnings;
|
|
use parent qw(Plack::Middleware::Debug::Environment);
|
|
our $VERSION = '0.01';
|
|
|
|
sub run {
|
|
my ($self, $env, $panel) = @_;
|
|
|
|
my $filtered_env = { %$env };
|
|
|
|
delete $filtered_env->{'plack.debug.panels'};
|
|
$filtered_env->{'webgui.session'} &&= 'bless({ ... }, "WebGUI::Session")';
|
|
|
|
$self->SUPER::run($filtered_env, $panel);
|
|
}
|
|
|
|
1;
|
|
|