TaskForest::ErrLogger - Functions related to logging to stderr

TaskForest documentation

Contained in the TaskForest distribution.

Index

NAME
DOCUMENTATION

Code Index:

package TaskForest::ErrLogger
- TIEHANDLE
- PRINT
EOF

NAME

TaskForest::ErrLogger - Functions related to logging to stderr

DOCUMENTATION

This is a class that is used to tie prints to STDERR to $log->error(); See Logger::Log4perl for more details.

TaskForest documentation

Contained in the TaskForest distribution.

# -*-perl-*-

################################################################################
#
# $Id: ErrLogger.pm 211 2009-05-25 06:05:50Z aijaz $
#
################################################################################

package TaskForest::ErrLogger;


use strict;
use warnings;
use TaskForest::Logs;
use Log::Log4perl;

BEGIN {
    use vars qw($VERSION);
    $VERSION     = '1.30';
}

sub TIEHANDLE {
    my $class = shift;
    bless { log => $TaskForest::Logs::log } , $class;
}

sub PRINT {
    my $self = shift;
    $Log::Log4perl::caller_depth++;
    $self->{log}->error(@_);
    $Log::Log4perl::caller_depth--;
}

1;