- make the dependency on version.pm optional
- improve doc of corelist(1)
p4raw-id: //depot/perl@28938
package Module::CoreList;
use strict;
use vars qw/$VERSION %released %patchlevel %version %families/;
package Module::CoreList;
use strict;
use vars qw/$VERSION %released %patchlevel %version %families/;
- corelist -v [<PerlVersion>]
corelist [-a] <ModuleName> | /<ModuleRegex>/ [<ModuleVersion>] ...
corelist [-a] <ModuleName> | /<ModuleRegex>/ [<ModuleVersion>] ...
- corelist [-v <PerlVersion>] [ <ModuleName> | /<ModuleNameRegex>/ ] ...
+ corelist [-v <PerlVersion>] [ <ModuleName> | /<ModuleRegex>/ ] ...
+lists all versions of the given module (or the matching modules, in case you
+used a module regexp) in the perls Module::CoreList knows about.
+
corelist -a utf8
utf8 was first released with perl 5.006
corelist -a utf8
utf8 was first released with perl 5.006
lists all of the perl release versions we got the CoreList for.
lists all of the perl release versions we got the CoreList for.
-If you pass a version argument (value of C<$]>, like 5.00503),
+If you pass a version argument (value of C<$]>, like C<5.00503> or C<5.008008>),
you get a list of all the modules and their respective versions.
you get a list of all the modules and their respective versions.
+(If you have the C<version> module, you can also use new-style version numbers,
+like C<5.8.8>.)
In module filtering context, it can be used as Perl version filter.
In module filtering context, it can be used as Perl version filter.
use Pod::Usage;
use strict;
use warnings;
use Pod::Usage;
use strict;
use warnings;
sub numify_version {
my $ver = shift;
if ( index( $ver, q{.}, index( $ver, q{.} ) ) >= 0 ) {
sub numify_version {
my $ver = shift;
if ( index( $ver, q{.}, index( $ver, q{.} ) ) >= 0 ) {
+ eval { require version };
+ if ($@) {
+ die "You need to install version.pm to use dotted version numbers\n";
+ }
$ver = version->new($ver)->numify;
}
return $ver;
$ver = version->new($ver)->numify;
}
return $ver;