sub Log4PerlInit { my ($self, @args) = @_; # Is this is an instance or class method? I don't # know what you are doing, so I will support both. $used_loggers{ref($self) || $self} = 1; $self->Log4PerlInit(@args); }