File Coverage

blib/lib/Log/Any/Adapter/Handler.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch			n/a
condition	1	3	33.3
subroutine	10	10	100.0
pod	0	1	0.0
total	38	41	92.6

package Log::Any::Adapter::Handler;
# ABSTRACT: Log::Any::Adapter for Log::Handler
our $VERSION = '0.009';

use strict;
use warnings;

use Log::Any::Adapter::Util ();
use parent qw(Log::Any::Adapter::Base);
use Log::Handler;

sub init {
	my $self = shift;
	$self->{logger} ||= Log::Handler->new;
}

# logging methods
foreach my $method (Log::Any::Adapter::Util::logging_methods) {
	no strict 'refs';
	my $handler_method = $method;
	*$method = sub {
		my $self = shift;
		return $self->{logger}->$handler_method(@_);
	};
}

# detection methods
foreach my $method (Log::Any::Adapter::Util::detection_methods()) {
	my $self = shift;
	my $handler_method = $method;
	no strict 'refs';
	*$method = sub {
		my $self = shift;
		return $self->{logger}->$handler_method(@_);
	};
}

1;

__END__