File Coverage

blib/lib/OpenPlugin/Log/Log4perl.pm

Criterion	Covered	Total	%
statement	27	44	61.3
branch	1	2	50.0
condition			n/a
subroutine	10	19	52.6
pod	0	15	0.0
total	38	80	47.5

package OpenPlugin::Log::Log4perl;

# $Id: Log4perl.pm,v 1.15 2003/04/12 03:17:42 andreychek Exp $

use strict;
use OpenPlugin::Log();
use base          qw( OpenPlugin::Log );
use Log::Log4perl 0.25 qw( get_logger );

$OpenPlugin::Log::Log4perl::VERSION = sprintf("%d.%02d", q$Revision: 1.15 $ =~ /(\d+)\.(\d+)/);

sub init {
    my ( $self, $args ) = @_;

    $Log::Log4perl::caller_depth = 1;
    my $params = $self->OP->get_plugin_info( "log" )->{'driver'}{'Log4perl'};

    # Each line from the config needs to start with "log4perl."
    foreach my $string ( keys %{ $params } ) {
        unless( $string =~ m/^log4perl\./ ) {
            $string = "log4perl." . $string;
        }
    }
    Log::Log4perl::init( $params );

    return $self;
}

# Here, we're just trying to mimic Log4perl's interface.  Since Log4perl wasn't
# designed to be subclassed, we need to create all the methods we want to use,
# and pass parameters sent from them to Log4perl's functions

# TODO: Is there a better way to do this?  Is there a way we can have init()
# return a Log::Log4perl object instead of a OpenPlugin::Plugin::Log object?
# Are there any drawbacks with this?

#################
# Logging Methods
sub debug { shift; get_logger((caller(0))[0])->debug( @_ ); }
sub info  { shift; get_logger((caller(0))[0])->info( @_ );  }
sub warn  { shift; get_logger((caller(0))[0])->warn( @_ );  }
sub error { shift; get_logger((caller(0))[0])->error( @_ ); }
sub fatal { shift; get_logger((caller(0))[0])->fatal( @_ ); }

#############################
# Debug level testing methods
sub is_debug { return get_logger((caller(0))[0])->is_debug }
sub is_info  { return get_logger((caller(0))[0])->is_info  }
sub is_warn  { return get_logger((caller(0))[0])->is_warn  }
sub is_error { return get_logger((caller(0))[0])->is_error }
sub is_fatal { return get_logger((caller(0))[0])->is_fatal }

#############################
# Alter logging levels
sub more_logging { shift; return get_logger((caller(0))[0])->more_logging( @_ ) }
sub less_logging { shift; return get_logger((caller(0))[0])->less_logging( @_ ) }
sub inc_level    { shift; return get_logger((caller(0))[0])->inc_level( @_ ) }
sub dec_level    { shift; return get_logger((caller(0))[0])->dec_level( @_ ) }


1;

__END__