oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add webgui specific environment debug panel to filter out session

Browse source
This commit is contained in:
Graham Knop 2010-08-25 12:33:16 -05:00
parent a53f1cdede
commit f728107e78
2 changed files with 21 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lib/WebGUI/Middleware/Debug/Environment.pm Normal file
View file

@ -0,0 +1,20 @@
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;

2
share/site.psgi
View file

@ -36,7 +36,6 @@ builder {
enable_if { $_[0]->{'webgui.debug'} } 'StackTrace';
enable_if { $_[0]->{'webgui.debug'} } 'Debug', panels => [
'Environment',
'Timer',
'Memory',
'Session',
@ -46,6 +45,7 @@ builder {
'Response',
'Logger',
];
enable_if { $_[0]->{'webgui.debug'} } '+WebGUI::Middleware::Debug::Environment';
enable_if { $_[0]->{'webgui.debug'} } '+WebGUI::Middleware::Debug::Performance';
# This one uses the Session object, so it comes after WebGUI::Middleware::Session