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.275 second using v1.01-cache-2.11-cpan-8f98c5d2c55 )