# Apache::Request subclass
use strict;
use Log::Log4perl;
package My::Apache::Request;
use Apache::Request;

sub new {
  my ( $class, @args ) = @_;
  return bless { r=>Apache::Request->new(@args) }, $class;
}

sub LOGGER {
  my $self = shift;
  my $log = shift || 'WebApp';
  return Log::Log4perl->get_logger( $log );
}
1;