File Coverage

blib/lib/SeeAlso/Format.pm

Criterion	Covered	Total	%
statement	49	51	96.0
branch	10	16	62.5
condition	11	18	61.1
subroutine	12	14	85.7
pod	0	5	0.0
total	82	104	78.8

package SeeAlso::Format;
$SeeAlso::Format::VERSION = '0.14';
use strict;
use warnings;

use Plack::Request;
use Try::Tiny;
use Data::Dumper;

use Scalar::Util qw(reftype);

use SeeAlso::Format::seealso;
use SeeAlso::Format::redirect;

sub valid {
    my $resp = shift;
    return unless (reftype($resp) || '') eq 'ARRAY' and @$resp == 4;
    return if ref($resp->[0] // []); # identifier must be string
    return unless (reftype($resp) || '') eq 'ARRAY';
    foreach (1,2,3) {
        my $a = $resp->[$_];
        return unless (reftype($a) || '') eq 'ARRAY';
        return if grep { ref($_ // []) } @$a;
    }
    $resp;
}


sub new {
    my $class = shift;

    if (@_) {
        $class = "SeeAlso::Format::".lc($_[0]);
        # TODO
        #  require $class;
    }

    bless { }, $class;
}

sub type {
    die __PACKAGE__ . '->type must return a MIME type';
}

sub psgi {
    die __PACKAGE__ . '->psgi must return a PSGI response';
}

sub app {
    my ($self, $query) = @_;
    sub {
        my $env = shift;
        my $id = Plack::Request->new($env)->param('id');
        my $result;
        try {
            $result = $query->( $id );
            die 'Invalid SeeAlso response:' . Dumper($result)
                if defined $result and !valid($result);
        } catch {
            $env->{'psgi.errors'}->print($_);
        };
        $result = [$id,[],[],[]] unless $result;

        return $self->psgi( $result || [$id,[],[],[]] );
    }
}

1;

__END__