File Coverage

blib/lib/Plack/Middleware/Head.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	6	6	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	29	29	100.0

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__