App-DualLivedList

 view release on metacpan or  search on metacpan

bin/dual-lived  view on Meta::CPAN

    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";
}

print "\tFetching more details...\n";

bin/dual-lived  view on Meta::CPAN

}

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 {



( run in 1.613 second using v1.01-cache-2.11-cpan-c333fce770f )