Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-09 11:35:40 -04:00
Code Issues Releases Wiki Activity

newer core plugin, adds removed

Browse source
This commit is contained in:
Ryan Voots 2010-11-27 16:44:47 -05:00
parent da4e290edb
commit bb97d99d1a
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
plugins/core.pm
View file

@ -1,12 +1,17 @@
use Module::CoreList;
no warnings 'void';
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( $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/);
@ -20,7 +25,7 @@ sub {
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.