Yet Another CPAN Grep

Dancer-Plugin-Tapir ( E/EW/EWATERS/Dancer-Plugin-Tapir-0.04.tar.gz, EWATERS, 2012; MetaCPAN )

Dancer-Plugin-Tapir/lib/Dancer/Plugin/Tapir.pm ( view source; MetaCPAN )

Dancer ':syntax';
use Dancer::Plugin;
use Carp;
use Try::Tiny;
use Capture::Tiny qw(capture);
use JSON::XS qw();
use Scalar::Util qw(blessed);

# POE sessions will be created by Tapir::MethodCall; let

alidator;
use Tapir::MethodCall;
use Tapir::Documentation::NaturalDocs;
use File::Spec;

my $json_xs = JSON::XS->new->allow_nonref->allow_blessed;

our $VERSION = 0.04;

register setup_tapir_documenta

t->params;

            # Decode the JSON payload
            if ($request->content_length && $request->content_type && $request->content_type eq 'application/json' && length $request->body) {