File Coverage

blib/lib/Plack/TempBuffer.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	20	21	95.2

package Plack::TempBuffer;
use strict;
use warnings;

use parent 'Stream::Buffered';

sub new {
    my $class = shift;

    if (defined $Plack::TempBuffer::MaxMemoryBufferSize) {
        warn "Setting \$Plack::TempBuffer::MaxMemoryBufferSize is deprecated. "
           . "You should set \$Stream::Buffered::MaxMemoryBufferSize instead.";
        $Stream::Buffered::MaxMemoryBufferSize = $Plack::TempBuffer::MaxMemoryBufferSize;
    }

    return $class->SUPER::new(@_);
}

1;