package Log;

my $instance;
...
sub get_logger {
  unless ($instance) {
    $instance = ...; # create the Log instance here
    # another option is to throw an exception
  }
  $instance;
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.