view release on metacpan or  search on metacpan

bin/dual-lived  view on Meta::CPAN

    SIMONW
    SMUELLER
    TJENNESS
    TODDR
    TOMHUGHES
    YVES);

my (@matches) = grep( ( $_ eq $d ), @mods );
if (@matches) {

    for $d ( CPAN::Shell->expand( "Module", "$d" ) ) {
        $print->bold_black( "\n\tmodule: ", $d->id ),
            $print->dark_blue( "\tauthor: ",          $d->cpan_userid ),
            $print->dark_blue( "\tcurrent version: ", $d->cpan_version ),
            $print->dark_red( "\tinstalled version: ", $d->inst_version ),
            $print->dark_red( "\t",                    $d->inst_file );
    }
    $print->dark_magenta("\t@matches is core and is Dual-Lived");
}
else {
    for $d ( CPAN::Shell->expand( "Module", $d ) ) {
        $print->bold_black( "\n\tmodule: ", $d->id ),
            $print->dark_blue( "\tauthor: ",             $d->cpan_userid ),
            $print->dark_blue( "\tcurrent version is: ", $d->cpan_version ),
            $print->dark_red( "\tinstalled version: ", $d->inst_version ),
            $print->dark_red( "\t",                    $d->inst_file ),
            ;
    }
    print "\tIt's not on the Dual-Lived list", "\n";
}

bin/dual-lived  view on Meta::CPAN

    ) or Getopt::Long::HelpMessage(2);
}

sub version {
    print STDOUT ("This is $package [$name $version]\n");
}

sub list {
    print "module: ", "\n";
    foreach my $mod (@mods) {
        for $mod ( CPAN::Shell->expand( "Module", $mod ) ) {
            $print->bold_black( $mod->id );
        }
    }
}

sub update {
    CPAN::Shell->install($d);
}

sub filestats {

    use File::CountLines qw(count_lines);
    use Number::Bytes::Human qw(format_bytes);

    my $h = Number::Bytes::Human->new;
    for $d ( CPAN::Shell->expand( "Module", $d ) ) {
        my $size = $h->format( -s $d->inst_file );
        print "Installed size: ", $size, "\n";
        my $path     = ( $d->inst_file );
        my $no_lines = count_lines($path);
        print "Number of lines: ", $no_lines, "\n";
        print "Number of words: ";
        system("wc -w $path");
    }
}

sub authors {
    foreach my $mod (@mods) {
        for $mod ( CPAN::Shell->expand( "Module", $mod ) ) {
            $print->dark_blue( $mod->cpan_userid );
        }
    }
}

sub distribution {
    my $distribution
        = CPAN::Shell->expand( "Module", $d )->distribution()->pretty_id($d);
    print $distribution, "\n";

    CPAN::Index->reload();
    my @modules = CPAN::Shell->expand( "Distribution", $distribution )
        ->containsmods();
    foreach my $module (@modules) {
        print $module, "\n";
    }
}

sub cpan_id {
    foreach my $author (@authors) {
        $print->dark_blue($author);
    }