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


line stmt bran cond sub pod time code
1             package Spike::Site::Response;
2              
3 1     1   3 use strict;
  1         1  
  1         24  
4 1     1   3 use warnings;
  1         1  
  1         20  
5              
6 1     1   3 use base qw(Plack::Response Spike::Object);
  1         5  
  1         370  
7              
8             sub new {
9 0     0 1   my ($proto, $status, $headers) = splice @_, 0, 3;
10 0   0       my $class = ref $proto || $proto;
11              
12 0 0         $headers = !$headers ? [] : ref $headers eq 'HASH' ? [ %$headers ] : $headers;
    0          
13              
14 0 0         if (ref $headers eq 'ARRAY') {
15 0           unshift @$headers, ('Content-Type', 'text/html; charset=utf-8');
16             }
17              
18 0           return $class->SUPER::new($status, $headers, @_);
19             }
20              
21             1;