Plack::Middleware::Head - auto delete response body in HEAD requests

Plack documentation Contained in the Plack distribution.

Index

Code Index:

NAME

Top

Plack::Middleware::Head - auto delete response body in HEAD requests

SYNOPSIS

Top

  enable "Head";

DESCRIPTION

Top

This middleware deletes response body in HEAD requests.

AUTHOR

Top

Tatsuhiko Miyagawa

SEE ALSO

Top

Rack::Head

Plack documentation Contained in the Plack distribution. 
package Plack::Middleware::Head;
use strict;
use warnings;
use parent qw(Plack::Middleware);

sub call {
    my($self, $env) = @_;

    return $self->app->($env)
        unless $env->{REQUEST_METHOD} eq 'HEAD';

    $self->response_cb($self->app->($env), sub {
        my $res = shift;
        $res->[2] = [];
    });
}

1;

__END__