#! /usr/bin/env perl

package L4P::Subclass;

use Log::Log4perl qw/:no_extra_logdie_message :levels/;
our @ISA = qw/Log::Log4perl/;
Log::Log4perl->wrapper_register( __PACKAGE__ );
Log::Log4perl->easy_init(
    {
        name        => 'LOG',
        file        => "STDOUT",
        layout      => '[%d - %r] %p (%c) %M:%L %m%n',
        level       => $TRACE,
    }
) or die 'easy_init() failed - ';

sub new {
    my $pkg = shift;

    my $log = bless Log::Log4perl->get_logger(caller()), __PACKAGE__;

    warn $log->get_logger(caller())->category();

    return $log;
}

sub trace_start {
    my $self = shift;

    $self->debug("Starting with args: " . join ', ', @_);
}

#our $AUTOLOAD;
sub AUTOLOAD {
    my $self = shift;
    (my $method = $AUTOLOAD) =~ s/.*://;
    Log::Log4perl->get_logger(caller())->$method(@_);
}

package main;

my $log = L4P::Subclass->new();

$log->trace_start("Please don't let it be L4P::Subclass");

##</code><code>##

L4P.Subclass at work/repos/Git/tools/lib/IBM-PTC-Core/LogTest.pl line 22.
[2013/02/20 14:22:48 - 1] DEBUG (L4P.Subclass) main:::44 Starting with args: Please don't let it be L4P::Subclass