File Coverage

blib/lib/Bootylicious/Plugin/HttpCache.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	5	6	83.3
condition	2	3	66.6
subroutine	6	6	100.0
pod	1	1	100.0
total	38	40	95.0

package Bootylicious::Plugin::HttpCache;

use strict;
use warnings;

use base 'Mojolicious::Plugin';

use Mojo::ByteStream;

sub register {
    my ($self, $app) = @_;

    $app->hook(
        after_dispatch => sub {
            my $self = shift;

            return unless $self->req->method eq 'GET';

            my $body = $self->res->body;
            return unless defined $body;

            my $our_etag = Mojo::ByteStream->new($body)->md5_sum;
            $self->res->headers->header('ETag' => $our_etag);

            my $browser_etag = $self->req->headers->header('If-None-Match');
            return unless $browser_etag && $browser_etag eq $our_etag;

            $self->res->code(304);
            $self->res->body('');
        }
    );
}

1;