File Coverage

blib/lib/Nephia/Plugin/JSON.pm

Criterion	Covered	Total	%
statement	37	38	97.3
branch	2	2	100.0
condition	1	2	50.0
subroutine	13	14	92.8
pod	4	5	80.0
total	57	61	93.4

package Nephia::Plugin::JSON;
use 5.008005;
use strict;
use warnings;
use parent 'Nephia::Plugin';
use JSON ();
use Nephia::Response;

our $VERSION = "0.03";

sub new {
    my ($class, %opts) = @_;
    my $self = $class->SUPER::new(%opts);
    my $app = $self->app;
    $app->{json_obj} = JSON->new->utf8;
    return $self;
}

sub exports { qw/json_res encode_json decode_json/ }

sub json_res {
    my ($self, $context) = @_;
    return sub ($) {
        my $content_body = $_[0];
        my $headers = [
            'Content-Type'           => 'application/json; charset=UTF-8',
            'X-Content-Type-Options' => 'nosniff',  ### For IE 9 or later. See http://web.nvd.nist.gov/view/vuln/detail?vulnId=CVE-2013-1297
            'X-Frame-Options'        => 'DENY',     ### Suppress loading web-page into iframe. See http://blog.mozilla.org/security/2010/09/08/x-frame-options/
            'Cache-Control'          => 'private',  ### no public cache
        ];
        if ($self->{enable_api_status_header}) {
            $content_body->{status} ||= 200;
            push @$headers, ('X-API-Status', $content_body->{status});
        }
        $context->set(res => Nephia::Response->new(
            200, $headers,
            $self->app->{json_obj}->encode($content_body)
        ));
    };
}

sub encode_json {
    my ($self, $context) = @_;
    return sub ($) {$self->app->{json_obj}->encode($_[0])};
}

sub decode_json {
    my ($self, $context) = @_;
    return sub ($) {$self->app->{json_obj}->decode($_[0])};
}

1;
__END__