mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 17:05:43 -04:00
31 lines
875 B
Perl
31 lines
875 B
Perl
use Module::CoreList;
|
|
|
|
sub {
|
|
my( $said, $pm ) = @_;
|
|
my $module = $said->{recommended_args}->[0];
|
|
|
|
my $rev = Module::CoreList->first_release( $module );
|
|
if( $rev ) {
|
|
print "Added to perl core as of $rev";
|
|
if ( Module::CoreList->can('removed_from') ) {
|
|
my $rem = Module::CoreList->removed_from( $module );
|
|
print " and removed from $rem" if $rem;
|
|
}
|
|
}
|
|
else {
|
|
|
|
my @modules = Module::CoreList->find_modules(qr/$module/);
|
|
|
|
if ( @modules ){
|
|
|
|
print 'Found', scalar @modules, ':', join ',' ,
|
|
map {$_.' in '. Module::CoreList->first_release( $_ ) } @modules;
|
|
|
|
}
|
|
else {
|
|
print "Module $module does not appear to be in core. Perhaps capitalization matters or try using the 'cpan' command to search for it." }
|
|
}
|
|
}
|
|
|
|
__DATA__
|
|
Tells you when the module you searched for was added to the Perl Core, if it was.
|