Parse::Dia::SQL::Logger - Wrapper for Log::Log4perl

    use Parse::Dia::SQL::Logger;
    my $logger = Parse::Dia::SQL::Logger::->new(loglevel => 'INFO');
    my $log = $logger->get_logger(__PACKAGE__);
    $log->error('error');
    $log->info('info');

This module is a wrapper around Log::Log4perl.

The constructor.

  Return logger singleton object.

Decrease log level on all appenders. 1 =cut

sub log_off { my $self = shift;

  # Make sure it works also in case this is
  # called as function before object is blessed.
  _init_log() if ( !Log::Log4perl->initialized() );

  Log::Log4perl->appender_thresholds_adjust(APPENDER_THRESHOLDS_ADJUST_LOGOFF);

  return 1;
}

Increase log level on all appenders.