Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Module-CoreList CPAN distribution.

Report information
The Basics
Id: 2422
Status: resolved
Priority: 0/
Queue: Module-CoreList

People
Owner: RCLAMP [...] cpan.org
Requestors:
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: (no value)
Fixed in: (no value)

Attachments


MIME-Version: 1.0
X-Mailer: MIME-tools 5.405 (Entity 5.404)
Subject: corelist - a commandline frontend to Module::CoreList
Content-Type: multipart/mixed; boundary="----------=_1051012282-18975-0"
Content-Length: 0
Content-Type: text/plain
Content-Disposition: inline
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: iso-8859-1
Content-Length: 136
Download (untitled) / with headers
text/plain 136b
I got tired of typing perl -MModule::CoreList -e ... all the time so I wrote this. You might wanna add it in an upcoming release. Enjoy.
Content-Type: application/octet-stream; name="corelist.pl"
Content-Disposition: inline; filename="corelist.pl"
Content-Transfer-Encoding: base64
Content-Length: 2568
Download corelist.pl
text/x-perl 2.5k
#!/usr/bin/perl -w =head1 NAME corelist - a commandline frontend to Module::CoreList =head1 DESCRIPTION See L<Module::CoreList> for one. =head1 SYNOPSIS corelist [-help] [-man] [-v [ version ] ] [ Modulename [ version ] ] =head1 OPTIONS =head2 [-?] help! help! help! to see more help, try --man. =head2 man all of the help =head2 v lists all of the perl release versions we got the CoreList for. If you pass a version argument (value of $], like 5.00503), you get a list of all the modules and their respective versions. =cut use Module::CoreList; use Getopt::Long; use Pod::Usage; use strict; my %Opts; GetOptions(\%Opts, qw[ help|?! man! v|version:f ] ); pod2usage(1) if $Opts{help}; pod2usage(-verbose=>2) if $Opts{man}; if(exists $Opts{v} ){ if( $Opts{v} ) { if( exists $Module::CoreList::version{$Opts{v}} ) { print "\nThe following modules were in perl v$Opts{v} CORE\n"; print "$_ ", $Module::CoreList::version{$Opts{v}}{$_} || " ","\n" for sort keys %{$Module::CoreList::version{$Opts{v}}}; print "\n"; } else { print "\nModue::CoreList has no info on perl v$Opts{v}\n\n"; } } else { print "\nModue::CoreList has info on the following perl versions:\n"; print "$_\n" for sort keys %Module::CoreList::version; print "\n"; } }elsif(@ARGV){ module_version(@ARGV); } else { pod2usage(0) } exit(); sub module_version { my($mod,$ver) = @_; $ver = "" unless defined $ver; my $ret = Module::CoreList->first_release(@_); my $msg = "$mod $ver"; if( defined $ret ) { $msg .= " was "; $msg .= "first " unless $ver; $msg .= "released with perl $ret" } else { $msg .= " was not in CORE (or so I think)"; } print "\n",$msg,"\n"; } =head1 EXAMPLES $ corelist File::Spec File::Spec was first released with perl 5.005 $ corelist File::Spec 0.83 File::Spec 0.83 was released with perl 5.007003 $ corelist File::Spec 0.89 File::Spec 0.89 was not in CORE (or so I think) $ corelist File::Spec::Aliens File::Spec::Aliens was not in CORE (or so I think) =head1 COPYRIGHT Copyright (c) 2002-2003 by D.H. aka PodMaster This program is distributed under the same terms as perl itself. See http://perl.com or http://cpan.org for more info on that. =cut
Content-Type: text/plain
Content-Disposition: inline
Content-Transfer-Encoding: binary
MIME-Version: 1.0
X-Mailer: MIME-tools 5.405 (Entity 5.404)
X-RT-Original-Encoding: iso-8859-1
Content-Length: 253
Download (untitled) / with headers
text/plain 253b
[PODMASTER - Tue Apr 22 07:51:22 2003]: Show quoted text
> I got tired of typing perl -MModule::CoreList -e ... > all the time so I wrote this. > You might wanna add it in an upcoming release. > Enjoy.
Thanks, I've added it to the distribution and released it as 1.9.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.