minor refactoring
This commit is contained in:
parent
c7235378d1
commit
1ad2f0cfd7
9 changed files with 4 additions and 44 deletions
|
|
@ -1,40 +0,0 @@
|
|||
package WebGUI::Session::Request;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
This class wraps calls to $session->request and logs them as a cute way of seeing
|
||||
what Apache2::* methods webgui is calling
|
||||
|
||||
=cut
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
bless { @_ }, $class;
|
||||
}
|
||||
|
||||
our $AUTOLOAD;
|
||||
sub AUTOLOAD {
|
||||
my $self = shift;
|
||||
my $what = $AUTOLOAD;
|
||||
$what =~ s/.*:://;
|
||||
my $r = $self->{r};
|
||||
my $session = $self->{session};
|
||||
|
||||
if ( !$r ) {
|
||||
$session->log->error("!!request->$what(@_) but r not defined");
|
||||
return;
|
||||
}
|
||||
|
||||
if ( $what eq 'print' ) {
|
||||
$session->log->error("!!request->$what(print--chomped)");
|
||||
}
|
||||
else {
|
||||
$session->log->error("!!request->$what(@_)");
|
||||
}
|
||||
return $r->$what(@_);
|
||||
}
|
||||
|
||||
1;
|
||||
Loading…
Add table
Add a link
Reference in a new issue