File Coverage

blib/lib/Catmandu/Plack/unAPI.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Catmandu::Plack::unAPI;

use Catmandu::Sane;
use Catmandu;
use Catmandu::Util qw(is_array_ref);
use Plack::App::unAPI;
use Plack::Request;
use Moo;

use parent 'Plack::Component';

our $VERSION = '0.11';

has formats => (
    is      => 'ro',
    default => sub {
        return {
            json => {
                type     => 'application/json',
                exporter => [ 'JSON', pretty => 1 ],
                docs     => 'http://json.org/',
            },
            yaml => {
                type     => 'text/yaml',
                exporter => [ 'YAML' ],
                docs     => 'http://en.wikipedia.org/wiki/YAML',
            }
        }
    }
    # TODO: check via pre-instanciation
);

has store => (
    is     => 'ro',
    coerce => sub {
        if (is_array_ref($_[0])) {
            Catmandu->store(@$_[0])
        } elsif(!ref $_[0]) {
            Catmandu->store($_[0])
        } else {
            $_[0];
        }
    }
);

has query => (
    is      => 'ro',
    lazy    => 1,
    builder => sub {
        if (my $store = $_[0]->store) {
            sub { $store->bag->get($_[0]) }
        } else {
            sub { }
        }
    }
);

has unapi => (
    is      => 'ro',
    lazy    => 1,
    builder => sub {
        unAPI( map {
            my $format = $_[0]->formats->{$_};
            $_ => [
                $_[0]->format_as_app($format),
                $format->{type},
                docs => $format->{docs},
            ]
        } keys %{$_[0]->formats})
    }
);

sub format_as_app {
    my ($self, $format) = @_;

    sub {
        my ($env) = @_;
        my $req   = Plack::Request->new($env);
        my $id    = $req->param('id');

        my $record = $self->query->($id);
        if (ref $record) {
            my $out;
            my $exporter = is_array_ref($format->{exporter})
                         ? $format->{exporter} : [$format->{exporter}];
            $exporter = Catmandu->exporter( @$exporter, file => \$out );
            $exporter->add($record);
            $exporter->commit;
            [ 200, [ 'Content-Type' => $format->{type} ] , [ $out ] ];
        } elsif(defined $record) {
            [ 400, [ 'Content-Type' => 'text/plain' ], [ $record ] ];
        } else {
            [ 404, [ 'Content-Type' => 'text/plain' ], [ 'Not Found' ] ];
        }
    }
}

sub call {
    my ($self, $env) = @_;
    $self->unapi->($env);
}

1;
__END__