Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

petdance (2468)

petdance
  andy@petdance.com
http://www.perlbuzz.com/
AOL IM: petdance (Add Buddy, Send Message)
Yahoo! ID: petdance (Add User, Send Message)
Jabber: petdance@gmail.com

I'm Andy Lester, and I like to test stuff. I also write for the Perl Journal, and do tech edits on books. Sometimes I write code, too.

Journal of petdance (2468)

Sunday April 06, 2003
09:19 PM

Hooray for Module::CoreList

[ #11481 ]
Module::CoreList is a tremendous boon for module authors. It tracks what modules were in the Perl core for each version. I've had occassion to use it twice now:

What differences are there in core modules between Perl 5.5 and 5.8?

#!/usr/bin/perl -w

use strict;
use Module::CoreList;

my $list = $Module::CoreList::version{5.008};

my $old = $Module::CoreList::version{5.005};

for my $module ( sort keys %$list ) {
    print "$module\n" unless $old->{$module};
    #printf( "%-20s %-10s %-10s\n", $module, $list->{$module} || "", $old->{$module} || "" );
}

When did Pod::Usage get put in the core?

use strict;
use Module::CoreList;

my @vers = sort keys %Module::CoreList::version;

for my $ver ( @vers ) {
    print $ver, " --> ", $Module::CoreList::version{$ver}->{'Pod::Usage'} || "no", "\n";
}

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.

  • #!/usr/bin/perl -w
    use strict;
    use Module::CoreList;

    my $mod = shift;
    $mod =~ s/-/::/g;
    my $earliest = Module::CoreList->first_release( $mod );
    die "Not a core module.\n" unless $earliest;

    for my $key (sort keys %Module::CoreList::version)
    {
            next unless exists $Module::CoreList::version{$key}{$mod};
            my $version = $Module::CoreList::version{$key}{$mod}
            || 'an unknown version';
            print "Perl $key has $m
    --
      ---ict / Spoon
  • ...that if Module::CoreList would be added to the core, would an infinite recursion ensue?