Code Index:

package Fault::Delegate::Stderr
- _write
- test
EOF

NAME

 Fault::Delegate::Stderr - Stderr print logger delegate.

SYNOPSIS

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

Inheritance

 UNIVERSAL
   Fault::Delegate
     Fault::Delegate::Stderr

Description

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.

Examples

 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!");

Instance Variables

None.

Class Methods

$delegate = Fault::Delegate::Stderr->new: Create a logger delegate object that prints log messages to stderr. Prints a warning message and returns undef on failure.

Logger Protocol Instance Methods

$okay = $self->log ($msg)

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

for example:

      20021207 223010 UTC> MyProcess: NOTE(notice): Nothing happened today.\n

Return true if the message was printed.

Private Class Methods

None.

Private Instance Methods

$bool = $self->test: 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.
$bool = $self->_write ($msg): Impliments the above override to the internal family protocol utilized by the Fault:Delegate log and test methods.

Errors and Warnings

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

KNOWN BUGS

 See TODO.

AUTHOR

Dale Amon <amon@vnl.com>

#================================ Stderr.pm =================================== # Filename: Stderr.pm # Description: Stderr print logger delegate. # Original Author: Dale M. Amon # Revised by: $Author: amon $ # Date: $Date: 2008-08-30 19:22:27 $ # Version: $Revision: 1.4 $ # License: LGPL 2.1, Perl Artistic or BSD # #============================================================================= use strict; use Fault::Delegate; use Fault::Msg; package Fault::Delegate::Stderr; use vars qw{@ISA}; @ISA = qw( Fault::Delegate ); #============================================================================= # Family internal methods #============================================================================= # Warn is used here because if you can't even print to stderr you are probably # effed so you might as well punt directly to Perl and see if it can do any # better! sub _write ($$) { my ($self,$msg) = @_; my $line = $msg->stamped_log_line; if (!print STDERR "$line\n") { warn ("$0: Failed to log message to stderr: \'$line\'!\n"); return 0; } return 1; } #----------------------------------------------------------------------------- # Override so we only print annoying init message on the terminal if we are # debugging. sub test ($) { my $s = shift; (Fault::DebugPrinter->level > 0) ? $s->SUPER::test : 1; } #============================================================================= # Primary Logger Callback Methods #============================================================================= # Utilizes Fault::Delegate parent methods with subclass overrides seen above. #============================================================================= # Pod Documentation #============================================================================= # You may extract and format the documentation section with the 'perldoc' cmd.

#============================================================================= # CVS HISTORY #============================================================================= # $Log: Stderr.pm,v $ # Revision 1.4 2008-08-30 19:22:27 amon # Prevent test method from printing to terminal unless debugging. # # Revision 1.3 2008-08-28 23:20:19 amon # perldoc section regularization. # # Revision 1.2 2008-08-17 21:56:37 amon # Make all titles fit CPAN standard. # # Revision 1.1 2008-07-22 14:32:17 amon # Added Notepad and Delegate::Stderr classes # # 20080722 Dale Amon <amon@vnl.com> # Modified old Fault::Delegate::Stdout code # to print to stderr instead of stdout. 1;

Fault::Delegate::Stderr - Stderr print logger delegate.

Index