Fault::Delegate::Syslog - Syslog delegate.

 use Fault::Delegate::Syslog;
 $self = Fault::Delegate::Syslog->new;
 $okay = $self->log ($msg);

 UNIVERSAL
   Fault::Delegate
     Fault::Delegate::Syslog

This is a delegate that writes log messages to the syslog. Syslogging must be accessible to the calling program.

Fault::Delegate::Syslog satisfies the minimum requirements of the Fault::Delegate logger delegate protocol.

 use Fault::Delegate::Syslog;
 use Fault::Msg;
 use Fault::Logger;

 my $msg       = Fault::Msg                   ("Arf!");
 my $baz       = Fault::Delegate::Syslog->new;
 my $waslogged = $baz->log                    ($msg);

                 Fault::Logger->new           ($baz);
 my $waslogged = Fault::Logger->log           ("Bow! Wow!");

 [See Fault::Logger for a detailed example.]

 init     True if a syslog connection was succesfully initialized.

$delegate = Fault::Delegate::Syslog->new

Create a logger delegate object that writes log messages to syslog. A warning is issued if the program cannot initialize and write a startup message to syslog.

Returns undef if it fails to set up the syslog connection.

$didlog = $self->log ($msgobj)

Send the information contained in $msgobj to syslog at the $priority contained by it and return true if we succeeded in doing so. The message is formatted so that it will appear in the log like this:

 Apr 17 18:00:36 localhost UnspecifiedProcess[12638]: NOTE(notice): Testing syslogger again

 None.

$bool = $self->_write ($msg)

$bool = $self->_connect

Impliments the above overrides to the internal family protocol utilized by the Fault:Delegate log and test methods.

Local warning messages are issued if the sys logger cannot be reached or has any problems whatever.

 See TODO.

Fault::Logger, Fault::Delegate, Fault::Msg, Sys::Syslog Fault::ErrorHandler

Dale Amon <amon@vnl.com>