EVOLUTION-MANAGER

Edit File: Head.pm

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; if ($res->[2]) { $res->[2] = []; } else { return sub { return defined $_[0] ? '': undef; }; } }); } 1; __END__ =head1 NAME Plack::Middleware::Head - auto delete response body in HEAD requests =head1 SYNOPSIS enable "Head"; =head1 DESCRIPTION This middleware deletes response body in HEAD requests. =head1 AUTHOR Tatsuhiko Miyagawa =head1 SEE ALSO Rack::Head =cut