BEGIN {
   no strict 'refs';
   for my $sub (qw(debug info notice warning error critical alert emergency)) {
      my $level = uc($sub);
      *{"$sub"} = sub { my $self = shift; return $self->_print($level, @_); };
   }
}