package MyLogging;
...
sub DEBUG {
  ...
  general(\Log::Log4perl::DEBUG,@_);
}

sub general {
  my $logger=shift;
  ...
  &$logger(@_);
}