mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 16:15:39 -04:00
25 lines
705 B
Perl
25 lines
705 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" }
|
|
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.
|