File Coverage

blib/lib/Plack/Middleware/Log/Contextual.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package Plack::Middleware::Log::Contextual;

use strict;
use 5.008_001;
our $VERSION = '0.01';

use parent qw(Plack::Middleware);
use Plack::Util::Accessor qw(level logger);

use Log::Contextual qw(with_logger);
use Plack::Middleware::Log::Contextual::Logger;

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

    my $logger = $self->logger;
    unless ($logger) {
        if ($env->{'psgix.logger'}) {
            $logger = Plack::Middleware::Log::Contextual::Logger->new($env->{'psgix.logger'}, $self->level);
        } else {
            $env->{'psgi.errors'}->print(__PACKAGE__ . ": logger or psgix.logger is not available.\n");
        }
    }

    my $res;
    with_logger $logger, sub { $res = $self->app->($env) };

    if (ref $res eq 'CODE') {
        return sub {
            my $r = shift;
            with_logger $logger, sub { $res->($r) };
        };
    }

    return $res;
}

require Plack::Middleware::Log::Contextual;

1;
__END__