Yet Another CPAN Grep

App-pmuninstall ( X/XA/XAICRON/App-pmuninstall-0.33.tar.gz, XAICRON, 2022; MetaCPAN )

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

tnameInfo;
use version;
use HTTP::Tiny;
use Term::ANSIColor qw(colored);
use Cwd ();
use JSON::PP qw(decode_json);

our $VERSION = "0.33";

my $perl_version     = version->new($])->numify;
my $depende

    if (my $install_json = $self->{install_json}) {
        $self->puts("unlink    : $install_json") if $self->{verbose};
        unlink $install_json or $self->puts("$install_json: $!") and $failed++

;
        $self->rm_empty_dir_from_file($install_json);
    }

    $self->puts unless $self->{quiet} || $self->{force};
    return !$failed;
}

sub rm_empty_dir_from_file {
    my ($self, $file, $inc)