Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 16:55:42 -04:00
Code Issues Releases Wiki Activity

modified core.pm

Browse source
This commit is contained in:
Ryan Voots 2010-11-27 17:04:36 -05:00
parent bb97d99d1a
commit 336b7970e9
1 changed files with 37 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
plugins/core.pm
View file

@ -1,31 +1,45 @@
use Module::CoreList;
BEGIN {
my ($filename) = "Module/CoreList.pm";
my ( $realfilename, $result );
ITER: {
foreach $prefix (@INC) {
$realfilename = "$prefix/$filename";
if ( -f $realfilename ) {
$INC{$filename} = $realfilename;
$result = do $realfilename;
last ITER;
}
}
die "Can't find $filename in \@INC";
}
}
sub {
my( $said, $pm ) = @_;
my $module = $said->{recommended_args}->[0];
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;
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.";
}
}
}
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.