The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
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;