File Coverage

blib/lib/Irssi/Log/Log4perl.pm

Criterion	Covered	Total	%
statement	22	106	20.7
branch	0	18	0.0
condition	0	18	0.0
subroutine	8	26	30.7
pod	0	18	0.0
total	30	186	16.1

use strict;
use warnings;
use experimental 'signatures';

use Log::Log4perl::Level;

our $global_log_level = $DEBUG;

    bless +{ class => $logger_cls } => __PACKAGE__
}


    if (ref $self) {
	my $old = $self->{log_level};
	$self->{log_level} = $level
	    if defined $level;
	return $old // $global_log_level;
    } else {
	my $old = $global_log_level;
	$global_log_level = $level
	    if defined $level;
	return $global_log_level;
    }
}

			      $self->print('DEBUG', @message); }
			     $self->print('INFO', @message); }
			     $self->print('WARN', @message); }
			      $self->print('ERROR', @message); }
    return unless ($self->{log_level} // $global_log_level) <= $level;
    $self->print($Log::Log4perl::Level::LEVELS{ $level }, @message);
}

    print "[$level] " . ($self->{class} ? "[$self->{class}] " : "")
	. (join "", @message);
}

    $self->fatal(@message);
    die;
}

1;

package #
    Log::Log4perl;
use strict;
use warnings;
use base 'Irssi::Log::Log4perl';
BEGIN { $INC{'Log/Log4perl.pm'} = __FILE__; }


1;