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

use callback for log interception instead of on/off

Browse source
This commit is contained in:
Graham Knop 2010-06-17 09:18:50 -05:00
parent 8bfa022441
commit 18525e7c1b
9 changed files with 126 additions and 268 deletions
Download patch file Download diff file Expand all files Collapse all files

47
t/lib/WebGUI/Test.pm
View file

@ -235,42 +235,19 @@ mock the isDebug flag so that debug output is always generated.
=cut
my $origLogger;
sub interceptLogging {
my $log = $CLASS->session->log;
$origLogger ||= $log->{_logger};
$log->{_logger} = sub {
my $info = shift;
my $level = $info->{level};
my $message = $info->{message};
if ($level eq 'warn') {
our $logger_warns = $message;
}
elsif ($level eq 'debug') {
our $logger_debug = $message;
}
elsif ($level eq 'info') {
our $logger_info = $message;
}
elsif ($level eq 'error') {
our $logger_error = $message;
}
sub interceptLogging (&) {
shift
if eval { $_[0]->isa($CLASS) };
my $sub = shift;
my @logged;
my $last_logged = {};
local $CLASS->session->log->{'_logger'} = sub {
my $to_log = shift;
push @logged, $to_log;
$last_logged->{$to_log->{level}} = $to_log->{message};
};
}
#----------------------------------------------------------------------------
=head2 restoreLogging
Restores's the logging object to its original state.
=cut
sub restoreLogging {
my $log = $CLASS->session->log;
$log->{_logger} = $origLogger;
undef $origLogger;
$sub->($last_logged);
return \@logged;
}
#----------------------------------------------------------------------------