sub new {
    my $self = shift;
    my $class = ref($self) || $self;
    my $self->{logger} = get_logger($class);
    ...
}

#following allows $object->debug("debug statement");
#may need log4perl up-stack-call(?) for traceback
sub debug {
  my ($self,$message) = @_;
  $self->{logger}->debug($message);
  return $self;

}