File Coverage

blib/lib/Log/Any/Plugin/Encode.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	1	2	50.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	1	1	100.0
total	36	37	97.3

package Log::Any::Plugin::Encode;
# ABSTRACT: Output message encoding for log adapters
$Log::Any::Plugin::Encode::VERSION = '0.012';
use strict;
use warnings;

use Carp qw( croak );

use Encode qw( find_encoding );

use Log::Any::Plugin::Util qw( get_old_method set_new_method );


sub install {
    my ($class, $adapter_class, %args) = @_;

    my $encoding = $args{encoding} || 'utf8';
    my $encoder = find_encoding($encoding) or
        croak "Could not find encoder for encoding[$encoding], check encoding value for typos, or codec installed";

    for my $method_name ( Log::Any->logging_methods() ) {
        my $old_method = get_old_method($adapter_class, $method_name);

        set_new_method($adapter_class, $method_name, sub {
            my $self = shift;

            my @encoded_msgs = map { $encoder->encode($_, Encode::FB_WARN) } @_;

            return $self->$old_method(@encoded_msgs);
        });
    }
}


1;

__END__