minor refactoring

This commit is contained in:
Patrick Donelan 2010-04-07 10:50:45 -04:00
parent c7235378d1
commit 1ad2f0cfd7
9 changed files with 4 additions and 44 deletions

View file

@ -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;