File Coverage

blib/lib/Plack/Middleware/FirePHP.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package Plack::Middleware::FirePHP;

use 5.008;
use strict;
use warnings;

our $VERSION = '0.01';

use Plack::Response;
use Plack::Util;
use FirePHP::Dispatcher;
use Plack::Util::Accessor qw/disabled/;

use base 'Plack::Middleware';

sub call {
    my $self = shift;
    my $env = shift;

    if (defined $self->disabled && $self->disabled) {
        require Class::Null;
        $env->{'plack.fire_php'} = Class::Null->new;
    } else {
        require FirePHP::Dispatcher;
        $env->{'plack.fire_php'} =
            FirePHP::Dispatcher->new(Plack::Response->new->headers);
    }

    my $res = $self->app->($env);
    $env->{'plack.fire_php'}->finalize;

    $self->response_cb($res, sub {
        my $res = Plack::Response->new(@{$_[0]});
        $res->headers->push_header(
            %{$env->{'plack.fire_php'}->{http_headers}}
        );
        @{$_[0]} = @{$res->finalize};
    });
}

1;

__END__