Yet Another CPAN Grep

Plack-Middleware-JSONP-Headers ( V/VO/VOJ/Plack-Middleware-JSONP-Headers-0.11.tar.gz, VOJ, 2012; MetaCPAN )

Plack-Middleware-JSONP-Headers/lib/Plack/Middleware/JSONP/Headers.pm ( view source; MetaCPAN )

package Plack::Middleware::JSONP::Headers;
{
  $Plack::Middleware::JSONP::Headers::VERSION = '0.11';
}
#ABSTRACT: Wraps JSON response with HTTP headers in JSONP
use strict;

use parent qw(Plack::Middl

eware);

use Plack::Util;
use Plack::Builder;
use URI::Escape ();
use JSON ();
use Scalar::Util 'reftype';
use HTTP::Headers ();
use Plack::Util::Accessor qw(callback_key headers template);

sub prepa

nless ($self->template) {
        $self->template('{ "meta": %s, "data": %s }')
    }
}

sub wrap_json {
    my ($self, $status, $headers, $data) = @_;

    my $meta = { status => $status }; 
    my @