File Coverage

blib/lib/Message/Passing/Output/Log/Any/Adapter.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	1	2	50.0
total	33	34	97.0

package Message::Passing::Output::Log::Any::Adapter;
{
  $Message::Passing::Output::Log::Any::Adapter::VERSION = '0.002';
}

# ABSTRACT: output messages via Log::Any::Adapter.
use Moo;
use MooX::Types::MooseLike::Base qw( Str ArrayRef );
use Log::Any qw( $log );
use Log::Any::Adapter;
use namespace::clean -except => 'meta';


has adapter_name => (
    is       => 'ro',
    isa      => Str,
    required => 1,
);

has adapter_params => (
    is  => 'ro',
    isa => ArrayRef,
);

sub BUILD {
    my $self = shift;

    my @params = ( $self->adapter_name );
    push @params, @{ $self->adapter_params }
        if defined $self->adapter_params;

    Log::Any::Adapter->set(@params);
}

sub consume {
    my ( $self, $msg ) = @_;

    my $severity = 'info';

    $log->$severity($msg);
}

with 'Message::Passing::Role::Output';

1;

__END__