package MyWrapper;
use warnings;
use strict;
use autodie; # Not strictly necessary, but JIC I forget later

use base qw/Log::Log4perl;
our $AUTOLOAD;

sub get_logger {
    my $self = shift;

    return Log::Log4perl->get_logger(@_); # or $self->SUPER::get_logger(@_) but that requires
                                          # sufficient knowledge of L4P to know/realise that
                                          # get_logger is a standard exportable function
}

sub trace_beg {
    my $self = shift;
    
    __PACKAGE__->debug("Starting with args: " . join ' ', @_);
}

sub AUTOLOAD {
    my $self = shift;
    (my $method = $AUTOLOAD) =~ s,.*::,,;
    
    my $class = caller;
    local $Log::Log4perl::Caller_depth = $Log::Log4perl::caller_depth + 1;
    goto $self->get_logger($class)->$method(@_);
}

1;