File Coverage

lib/Spoon/Headers.pm

Criterion	Covered	Total	%
statement	9	21	42.8
branch	0	2	0.0
condition			n/a
subroutine	3	8	37.5
pod	0	5	0.0
total	12	36	33.3

package Spoon::Headers;
use Spoon::Base -Base;

field content_type => 'text/html';
field charset => 'UTF-8';
field expires => 'now';
field pragma => 'no-cache';
field cache_control => 'no-cache';
field redirect => '';

sub print {
    my $headers = $self->get;
    $self->utf8_encode($headers);
    print $headers;
}

sub get {
    $self->redirect
    ? CGI::redirect($self->redirect_value)
    : CGI::header($self->value);
}

sub redirect_value {
    (
        $self->hub->cookie->set_cookie_headers,
        -location => $self->redirect,
    );
}

sub value {
    (
        $self->hub->cookie->set_cookie_headers,
        -charset => $self->charset,
        -type => $self->content_type,
        -expires => $self->expires,
        -pragma => $self->pragma,
        -cache_control => $self->cache_control,
        -last_modified => $self->last_modified,
    );
}

sub last_modified {
    scalar gmtime;
}