view release on metacpan or  search on metacpan

bin/cpanx  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;
use Config;
use POSIX ();
use Cwd;
use ExtUtils::MakeMaker;
use Data::Dumper;

our $VERSION = "1.00";

my $cpan = "www.cpan.org";
my $cdir0 = "~/.cpanx";
my $cdir = glob($cdir0);
my $orig_cwd = Cwd::cwd();
my %modules_hash;
my $got_package_details;
my @install;
my $mm_opt = "";
my $mb_opt = "";
my %file_hash;
my %package_hash;
my %packages;
my %opts = (
    action => "install",
    test => 1,
    sudo => 1,
    interactive => 1,
    dependencies_only => 0,
);

get_opts();
setup_program();
get_cpan_mirror();

if ($opts{action} eq "mirror") {
    choose_mirror();
}
elsif ($opts{action} eq "look") {
    look_at_module();
}
elsif ($opts{action} eq "perldoc") {
    display_perldoc();
}
elsif ($opts{action} eq "info") {
    display_info_cmd();
}
elsif ($opts{action} eq "display_installation_files") {
    display_installation_files();
}
elsif ($opts{action} eq "clean") {
    clean_module_cache();
}
elsif ($opts{action} eq "version") {
    display_version();
}
elsif ($opts{action} eq "list_modules") {
    list_modules();
}
elsif ($opts{action} eq "list_packages") {
    list_packages();
}
elsif ($opts{action} eq "where") {
    display_where();
}
elsif ($opts{action} eq "uninstall") {
    uninstall_module();
}