Yet Another CPAN Grep

Perinci-CmdLineX-CommonOptions-SelfUpgrade ( P/PE/PERLANCAR/Perinci-CmdLineX-CommonOptions-SelfUpgrade-0.003.tar.gz, PERLANCAR, 2019; MetaCPAN )

Perinci-CmdLineX-CommonOptions-SelfUpgrade/lib/Perinci/CmdLineX/CommonOptions/SelfUpgrade.pm ( view source; MetaCPAN )

Log::ger;

sub action_self_upgrade {
    require File::Which;
    require HTTP::Tiny;
    require JSON::MaybeXS;

    my ($self, $r) = @_;

    unless (File::Which::which("cpanm")) {
        return [4

val { $apires = JSON::MaybeXS::decode_json($apires->{content}) };
        if ($@) {
            warn "Cannot upgrade module '$module': Invalid API response from $apiurl: not valid JSON: $@\n";