Michael Shipper
and 1 contributors

NAME

Net::SolarWinds::LogMethods - Passive logging interfcaes

SYNOPSIS

  package MyClass;
  
  use base qw(Net::SolarWinds::ConstructorHash  Net::SolarWinds::LogMethods);
  
  1;
  
  my $pkg=new MyClass(key=>'value');

DESCRIPTION

This library provides a common logging interfcaes that expect Net::SolarWinds::Log or something that implements its features. It also assumes object instance is a hash with $self->{log} contains the logging object.

OO Methods provided

  • my $log=$self->get_log;

    Returns the logging object if any

  • $self->set_log(Net::SolarWinds::Log->new);

    Sets the Chater::Log object, you can also set this in the constructor at object creation time.

  • $self->log_error("Some error");

    This is a lazy man's wrapper function for

      my $log=$self->get_log;
      $log->log_error("Some error") if $log; 
  • $log->log_die("Log this and die");

    Logs the given message then dies.

  • $self->log_always("Some msg");

    This is a lazy man's wrapper function for

      my $log=$self->get_log;
      $log->log_always("Some msg") if $log; 
  • my $string=$self->log_header;

    This is a stub function that allows a quick addin for logging, the string returned will be inserted after the log_level in the log file if this function is created.

  • $self->log_warn("Some msg");

    This is a lazy man's wrapper function for:

      my $log=$self->get_log;
      $log->log_warn("Some msg") if $log; 
  • $self->log_info("Some msg");

    This is a lazy man's wrapper function for:

      my $log=$self->get_log;
      $log->log_info("Some msg") if $log; 
  • $self->log_debug("Some msg");

    This is a lazy man's wrapper function for:

      my $log=$self->get_log;
      $log->log_debug("Some msg") if $log; 

AUTHOR

Michael Shipper