Select Code to Download

package Foo;
use strict;
...
  return unless exists $self->{LOGGER};
  $self->{LOGGER}->debug(@_);
}

my $logger = SomeOtherLogger->new(log_level => 'debug');
my $foo = Foo->new(LOGGER => $logger);

use Scalar::Util qw( blessed );
sub debug {
...
  $self->{LOGGER}->debug(@_);
}