File Coverage

blib/lib/Sledge/Plugin/Private.pm

Criterion	Covered	Total	%
statement	14	19	73.6
branch	1	4	25.0
condition	1	3	33.3
subroutine	4	6	66.6
pod	0	1	0.0
total	20	33	60.6

package Sledge::Plugin::Private;

use strict;
use warnings;
our $VERSION = '0.02';

sub import {
    my $class = shift;
    my $pkg   = caller(0);
    if ($_[0] && uc($_[0]) eq 'POST') {
        $pkg->register_hook(
            AFTER_INIT => sub {
                my $self = shift;
                $self->set_private if $self->is_post_request;
            },
        );
    }
    no strict 'refs'; ## no critic
    *{"$pkg\::set_private"} = \&set_private;
}

sub set_private {
    my $self = shift;
    $self->r->header_out('Cache-Control' => 'private');
}

1;
__END__