File Coverage

blib/lib/Plack/Middleware/ChromeLogger.pm

Criterion	Covered	Total	%
statement	28	29	96.5
branch	2	6	33.3
condition	2	6	33.3
subroutine	9	9	100.0
pod	2	2	100.0
total	43	52	82.6

package Plack::Middleware::ChromeLogger;
use strict;
use warnings;
use Web::ChromeLogger;
use parent 'Plack::Middleware';
use Plack::Util;
use Plack::Util::Accessor qw/
    json_encoder
    enable_in_production
    disabled
/;

our $VERSION = '0.01';

sub prepare_app {
    my $self = shift;

    if ( $ENV{PLACK_ENV} && $ENV{PLACK_ENV} eq 'production'
            && !$self->enable_in_production ) {
        $self->disabled(1);
    }
}

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

    unless ( $self->disabled ) {
        $env->{'psgix.chrome_logger'} = Web::ChromeLogger->new(
            json_encoder => $self->json_encoder,
        );
    }

    my $res = $self->app->($env);

    $self->response_cb($res, sub {
        return if $self->disabled;

        my $h = Plack::Util::headers($_[0]->[1]);
        $h->set('X-ChromeLogger-Data' => $env->{'psgix.chrome_logger'}->finalize);
    });
}

1;

__END__