Yet Another CPAN Grep

App-rimetadb ( P/PE/PERLANCAR/App-rimetadb-0.226.tar.gz, PERLANCAR, 2023; MetaCPAN )

App-rimetadb/lib/App/rimetadb.pm ( view source; MetaCPAN )

lean::ForJSON;
    state $cleanser = Data::Clean::ForJSON->get_cleanser;
    $cleanser;
}

sub _json {
    require JSON::MaybeXS;
    state $json = JSON::MaybeXS->new->allow_nonref;
    $json;
}

sub

 INTO package (name, summary, metadata, mtime) VALUES (?,?,?,0)", {}, $pkg, $pkgmeta->{summary}, _json->encode($pkgmeta), $st[9]) unless $rec;
        $dbh->do("UPDATE package set mtime=? WHERE name=?

ion (package, name, summary, metadata) VALUES (?,?,?,?)", {}, $pkg, $func, $funcmeta->{summary}, _json->encode($funcmeta));
        }
    }
    $progress->finish if $progress;

    @pkgs = grep { my $