Yet Another CPAN Grep

Dezi-MultiTenant ( K/KA/KARMAN/Dezi-MultiTenant-0.003.tar.gz, KARMAN, 2013; MetaCPAN )

Dezi-MultiTenant/lib/Dezi/MultiTenant.pm ( view source; MetaCPAN )

Dezi::MultiTenant;
use strict;
use warnings;
use Dezi::Server;
use Dezi::MultiTenant::Config;
use JSON;
use Plack::Builder;
use Plack::Request;
use Plack::App::URLMap;
use Data::Dump qw( dump );
use C

tion/xml',
            'application/json',
            ],
            vary_user_agent => 1;

        # JSONP response based on 'callback' param
        enable "JSONP";

        # / is self-description

       available   => \%avail,
    };
    my $resp = to_json($about);
    return [
        200,
        [   'Content-Type'   => 'application/json',
            'Content-Length' => length $resp,