Select Code to Download

sub instance {
    my $class = shift;
...
    ? $$instance
    : ($$instance = $class->_new_instance(@_));
}

class Logger
  private_class_method :new
...
    @@logger
  end
end