File Coverage

blib/lib/Plack/Middleware/Scope/Container.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	41	41	100.0

package Plack::Middleware::Scope::Container;

use strict;
use warnings;
use parent qw(Plack::Middleware);
use Scope::Container;
use Plack::Util;

our $VERSION = '0.04';

sub call {
    my ( $self, $env) = @_;
    my $container = start_scope_container();
    my $res = $self->app->($env);
    Plack::Util::response_cb($res, sub {
        my $res = shift;
        if ( defined $res->[2] ) {
            undef $container;
            return;
        }
        return sub {
            my $chunk = shift;
            if ( ! defined $chunk ) {
                undef $container;
                return;
            }
            return $chunk;
        };
    });
}

1;
__END__