Yet Another CPAN Grep

Perinci-Access-Schemeless-DBI ( P/PE/PERLANCAR/Perinci-Access-Schemeless-DBI-0.090.tar.gz, PERLANCAR, 2019; MetaCPAN )

Perinci-Access-Schemeless-DBI/lib/Perinci/Access/Schemeless/DBI.pm ( view source; MetaCPAN )

VERSION

use 5.010001;
use strict;
use warnings;
use experimental 'smartmatch';

use JSON::MaybeXS;
my $json = JSON::MaybeXS->new->allow_nonref;

use parent qw(Perinci::Access::Schemeless);

sub new {

 {},
            $req->{-perl_package}, $leaf);
        if ($meta) {
            $req->{-meta} = $json->decode($meta);
        } else {
            return [404, "No metadata found in database for pack

ame=?", {},
            $req->{-perl_package});
        if ($meta) {
            $req->{-meta} = $json->decode($meta);
        } else {
            $req->{-meta} = {v=>1.1}; # empty metadata for /