Yet Another CPAN Grep

Dancer-Plugin-Swagger ( Y/YA/YANICK/Dancer-Plugin-Swagger-0.3.0.tar.gz, YANICK, 2021; MetaCPAN )

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

ide send_error ? 
# TODO: add 'validate_schema'
# TODO: add 'strict_schema'
# TODO: make /swagger.json configurable

package Dancer::Plugin::Swagger;
our $AUTHORITY = 'cpan:YANICK';
# ABSTRACT: create

/^qr/ ? eval $_ : $_ }
        @{ plugin_setting->{auto_discover_skip} || [
            '/swagger.json', ( 'qr!' . $_[0]->ui_url . '!' ) x $_[0]->show_ui
        ] }
    ];
    },
);

has validate_res

 my $base_url = $plugin->ui_url;

    get $base_url => sub { redirect $base_url . '/?url=/swagger.json' };

    get $base_url . '/' => sub {
        my $file = $plugin->ui_dir->child('index.html');

Dancer-Plugin-Swagger ( Y/YA/YANICK/Dancer-Plugin-Swagger-0.3.0.tar.gz, YANICK, 2021; MetaCPAN )

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

_ro';

use Carp;
use Hash::Merge;
use Clone 'clone';
use List::AllUtils qw/ first any none /;
use JSON;
use Class::Load qw/ load_class /;

has route => ( handles => [ 'pattern' ] );

has tags => ( pre

r ", ref $serializer
                    if none { $serializer->isa($_) } qw/ Dancer::Serializer::JSON Dancer::Serializer::YAML /;
                $r->{examples}{$serializer->content_type} = $example;

definitions},
        properties => { response => $schema },
    };

    my $result = load_class('JSON::Schema::AsType')->new( schema => $schema)->validate_explain({ response => $data });

    return