File Coverage

blib/lib/Plack/Middleware/LogDispatchouli.pm

Criterion	Covered	Total	%
statement	37	38	97.3
branch	8	10	80.0
condition	4	6	66.6
subroutine	11	11	100.0
pod	2	2	100.0
total	62	67	92.5

package Plack::Middleware::LogDispatchouli;

use strict;
use warnings;
use 5.008_005;
use parent qw(Plack::Middleware);
use Plack::Util::Accessor qw(logger);
use Carp ();
use Scalar::Util qw(blessed);

use Log::Dispatchouli;

our $VERSION = '0.01';

sub prepare_app {
    my $self = shift;
    unless ($self->logger) {
        Carp::croak "logger is not defined";
    }
    $self->logger( Log::Dispatchouli->new($self->logger) )
        if ref $self->logger eq 'HASH';
    Carp::croak "logger is not a Log::Dispatchouli object or constructor parameter hash"
        unless blessed($self->logger) and $self->logger->isa("Log::Dispatchouli");
}

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

    $env->{'psgix.logger'} = sub {
        my $args = shift;
        my $msg  = delete $args->{message};

        ($args->{fatal}, $args->{level}) = (1, 'error')
            if $args->{level} eq 'fatal';

        if ( ref $msg && ref $msg ne 'CODE' ) {
            $msg .= q{};
        }

        $self->logger->log($args, $msg);
    };

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

1;

__END__