File Coverage

blib/lib/Spike/Site/Response.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch	0	6	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod	1	1	100.0
total	13	29	44.8

package Spike::Site::Response;

use strict;
use warnings;

use base qw(Plack::Response Spike::Object);

sub new {
    my ($proto, $status, $headers) = splice @_, 0, 3;
    my $class = ref $proto || $proto;

    $headers = !$headers ? [] : ref $headers eq 'HASH' ? [ %$headers ] : $headers;

    if (ref $headers eq 'ARRAY') {
        unshift @$headers, ('Content-Type', 'text/html; charset=utf-8');
    }

    return $class->SUPER::new($status, $headers, @_);
}

1;