File Coverage

blib/lib/Plack/Middleware/LogAny.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	38	38	100.0

#<<<
use strict; use warnings;
#>>>

package Plack::Middleware::LogAny;

use parent                qw( Plack::Middleware );
use Log::Any              qw();
use Plack::Util::Accessor qw( category logger );

our $VERSION = '0.001003';

sub prepare_app {
  my ( $self ) = @_;
  $self->logger( Log::Any->get_logger( category => defined $self->category ? $self->category : '' ) );
}

sub call {
  my ( $self, $env ) = @_;

  $env->{ 'psgix.logger' } = sub {
    my ( $level, $message ) = @{ $_[ 0 ] }{ qw( level message ) };

    my $logger = $self->logger;
    @_ = ( $logger, $message );
    goto &{ $logger->can( $level ) };
  };

  $self->app->( $env );
}

1;