=head1 NAME
-CPANPLUS::Dist::Gentoo::Maps - Map CPAN objects to Gentoo and vice versa.
+CPANPLUS::Dist::Gentoo::Maps - Map CPAN distribution names, version numbers and license identifiers to their Gentoo counterparts.
=head1 VERSION
-Version 0.10
+Version 0.11
=cut
-our $VERSION = '0.10';
+our $VERSION = '0.11';
-=head1 DESCRPITON
+=head1 DESCRIPTION
This is an helper package to L<CPANPLUS::Dist::Gentoo>.
=head2 C<name_c2g $name>
-Maps a CPAN distribution name to its Gentoo counterpart.
+Maps a CPAN distribution name to the corresponding Gentoo package name.
=cut
=head2 C<license_c2g @licenses>
-Maps F<META.yml> C<license> tag values to the corresponding list of Gentoo licenses identifiers.
+Maps F<META.yml> C<license> tag values to the corresponding list of Gentoo license identifiers.
Duplicates are stripped off.
The included data was gathered from L<Module::Install> and L<Software::License>.
sub license_c2g {
my %seen;
- grep !$seen{$_}++, map @{$licenses{+lc} || []}, @_;
+
+ grep !$seen{$_}++,
+ map @{$licenses{+lc} || []},
+ grep defined,
+ @_;
}
=head2 C<version_c2g $name, $version>
-Converts the C<$version> of a CPAN distribution C<$name> to a Gentoo version.
+Converts the C<$version> of a CPAN distribution C<$name> to a Gentoo version number.
=cut
my %version_mismatch;
-$version_mismatch{$_} = $insert_dot_at_1 for qw/
+$version_mismatch{$_} = $insert_dot_at_1 for qw<
CGI-Simple
-/;
+>;
-$version_mismatch{$_} = $insert_dot_at_all_1 for qw/
+$version_mismatch{$_} = $insert_dot_at_all_1 for qw<
AnyEvent
Archive-Rar
IO-AIO
Tie-Array-Sorted
Tk-TableMatrix
XML-RSS-Feed
-/;
+>;
-$version_mismatch{$_} = $insert_dot_at_2 for qw/
+$version_mismatch{$_} = $insert_dot_at_2 for qw<
Error
-/;
+>;
-$version_mismatch{$_} = $insert_dot_at_all_2 for qw/
+$version_mismatch{$_} = $insert_dot_at_all_2 for qw<
Authen-Htpasswd
BSD-Resource
CDDB
Curses-UI
DBD-mysql
Email-MessageID
+ Exception-Base
ExtUtils-CBuilder
ExtUtils-ParseXS
FileHandle-Unget
Time-HiRes
Time-Local
perl-ldap
-/;
+>;
-$version_mismatch{$_} = $insert_dot_at_all_3 for qw/
+$version_mismatch{$_} = $insert_dot_at_all_3 for qw<
Parse-RecDescent
Return-Value
-/;
+>;
-$version_mismatch{$_} = $pad_decimals_to_2 for qw/
+$version_mismatch{$_} = $pad_decimals_to_2 for qw<
Nmap-Parser
XML-AutoWriter
-/;
+>;
-$version_mismatch{$_} = $pad_decimals_to_4 for qw/
+$version_mismatch{$_} = $pad_decimals_to_4 for qw<
Convert-BER
-/;
+>;
-$version_mismatch{$_} = $correct_suffixes for qw/
+$version_mismatch{$_} = $correct_suffixes for qw<
Gimp
XML-Grove
-/;
+>;
-$version_mismatch{$_} = $strip_letters for qw/
+$version_mismatch{$_} = $strip_letters for qw<
DelimMatch
SGMLSpm
-/;
+>;
-$version_mismatch{$_} = $letters_as_suffix for qw/
+$version_mismatch{$_} = $letters_as_suffix for qw<
Frontier-RPC
-/;
+>;
sub version_c2g {
my ($n, $v) = @_;
=head2 C<perl_version_c2g $version>
-Converts a perl version as you can find it in prerequisites to a Gentoo version number.
+Converts a perl version number as you can find it in CPAN prerequisites to a Gentoo version number.
=cut
=head1 COPYRIGHT & LICENSE
-Copyright 2009,2010 Vincent Pit, all rights reserved.
+Copyright 2009,2010,2011 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Log-Dispatch log-dispatch
Math-Pari math-pari
Module-Info module-info
+MogileFS-Server mogilefs-server
NTLM Authen-NTLM
Net-Ping net-ping
Net-SFTP net-sftp