Fault::Delegate::Stderr - Stderr print logger delegate.
use Fault::Delegate::Stderr; $self = Fault::Delegate::Stderr->new; $okay = $self->log ($msg); $bool = $self->test;
UNIVERSAL Fault::Delegate Fault::Delegate::Stderr
This is a Logger delegate that writes all the log messages to stderr. It is Logger's default delegate if no other is given. It is also a pretty good one to start with when you are trying to understand how this system works.
It satisfies the absolute minimum requirements of the Fault::Delegate logger delegate protocol.
use Fault::Delegate::Stderr; use Fault::Logger; use Fault::Msg; my $msg = Fault::Msg ("Arf!"); my $baz = Fault::Delegate::Stderr->new ("/tmp/mylogfile"); my $waslogged = $baz->log ($msg); Fault::Logger->new ($baz); my $waslogged = Fault::Logger->log ("Bow! Wow!");
Create a logger delegate object that prints log messages to stderr. Prints a warning message and returns undef on failure.
Print a time-stamped message to stderr using information taken from Fault::Msg object $msg in the format:
$date $time UTC> $process: $type($priority): $msg\n
20021207 223010 UTC> MyProcess: NOTE(notice): Nothing happened today.\n
Return true if the message was printed.
If the debug level has been set to at least one in Fault::DebugPrinter, it executes the test method of the parent, Fault::Delegate class. Otherwise it always returns true. This was added so that an annoying initial message from the Fault system will not be printed on a terminal unless it is actually wanted for debugging purposees.
Impliments the above override 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.
Dale Amon <email@example.com>