File Coverage

blib/lib/SeeAlso/Format/redirect.pm

Criterion	Covered	Total	%
statement	3	11	27.2
branch	0	2	0.0
condition			n/a
subroutine	1	3	33.3
pod	0	2	0.0
total	4	18	22.2

package SeeAlso::Format::redirect;
#ABSTRACT: HTTP redirect as response format
$SeeAlso::Format::redirect::VERSION = '0.14';
use base 'SeeAlso::Format';

sub format { 'text/html' }

sub psgi {
    my ($self, $result) = @_;
    my ($url) = grep { $_ } @{$result->[3]};

    if ($url) {
        return [302, [
            Location => $url, URI => "<$url>",
            'Content-Type' => $self->format
        ], [ "" ]
        ]
    } else {
        return [404,['Content-Type' => $self->format],['not found']];
    }
}

1;

__END__