File Coverage

blib/lib/CGI/Header/PSGI.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	4	4	100.0
condition			n/a
subroutine	9	9	100.0
pod	3	4	75.0
total	46	47	97.8

package CGI::Header::PSGI;
use 5.008_009;
use strict;
use warnings;
use parent 'CGI::Header::Adapter';
use Carp qw/croak/;

our $VERSION = '0.62001';

sub status {
    my $self = shift;
    return $self->{status} unless @_;
    $self->{status} = shift;
    $self;
}

sub has_status {
    exists $_[0]->{status};
}

sub status_code {
    my $self = shift;
    my $code = $self->has_status ? $self->status : '200';
    $code =~ s/\D*$//;
    $code;
}

sub finalize {
    my $self    = shift;
    my $status  = $self->status_code;
    my $headers = $self->as_arrayref;

    for ( my $i = 1; $i < @$headers; $i += 2 ) {
        $headers->[$i] = $self->process_newline( $headers->[$i] );
    }

    $status, $headers;
}

1;

__END__