fix mistake in WebGUI::Test
This commit is contained in:
parent
883b145c44
commit
169218abf7
1 changed files with 6 additions and 1 deletions
|
|
@ -139,6 +139,8 @@ If true, the session won't be registered for automatic deletion.
|
|||
=cut
|
||||
|
||||
sub newSession {
|
||||
shift
|
||||
if eval { $_[0]->isa($CLASS) };
|
||||
my $noCleanup = shift;
|
||||
require WebGUI::Session;
|
||||
my $session = WebGUI::Session->open( $CLASS->config, newEnv() );
|
||||
|
|
@ -149,7 +151,10 @@ sub newSession {
|
|||
}
|
||||
|
||||
sub newEnv {
|
||||
shift
|
||||
if eval { $_[0]->isa($CLASS) };
|
||||
my $form = shift;
|
||||
|
||||
require HTTP::Message::PSGI;
|
||||
require HTTP::Request::Common;
|
||||
my $config = $CLASS->config;
|
||||
|
|
@ -1027,7 +1032,7 @@ This is a class method.
|
|||
my @guarded;
|
||||
sub addToCleanup {
|
||||
shift
|
||||
if try { $_[0]->isa($CLASS) };
|
||||
if eval { $_[0]->isa($CLASS) };
|
||||
push @guarded, cleanupGuard(@_);
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue