view release on metacpan or  search on metacpan

t/response_has_redundant_body.t  view on Meta::CPAN

            $respond->( [200, [ "Content-Type" => 'text/plain' ], ['OK']] );
        };
    };
    mount '/code_304_delayed' => sub {
        sub {
            my $respond = shift;
            $respond->( [304, [ "Content-Type" => 'text/plain' ], ['OK']] );
        };
    };

    # streaming response
    mount '/code_200_writer' => sub {
        sub {
            my $respond = shift;
            my $writer = $respond->( [200, [ "Content-Type" => 'text/plain' ]] );
            $writer->write( ref($writer) );
            $writer->close;
        };
    };
    mount '/code_304_writer' => sub {
        sub {

t/response_has_redundant_body.t  view on Meta::CPAN

        # delayed response
        [ '/code_200_delayed',
          'OK',
          200,
          'text/plain' ],
        [ '/code_304_delayed',
          '',
          304,
          'text/plain' ],

        # streaming response
        [ '/code_200_writer',
          'Plack::Util::Prototype',
          200,
          'text/plain' ],
        [ '/code_304_writer',
          'Plack::Util::Prototype',
          304,
          'text/plain' ],
    );