package MyLogging;
...
sub DEBUG {
  ...
  unshift @_,\Log::Log4perl::DEBUG;
  goto &general;
}

sub general {
  my $logger=shift;
  ...
  goto &$logger;
}