=head1 VERSION
-Version 0.05
+Version 0.09
=cut
-our $VERSION = '0.05';
+our $VERSION = '0.09';
=head1 DESCRPITON
return $gentooisms{$name} || $name;
}
+=head2 C<license_c2g @licenses>
+
+Maps F<META.yml> C<license> tag values to the corresponding list of Gentoo licenses identifiers.
+Duplicates are stripped off.
+
+The included data was gathered from L<Module::Install> and L<Software::License>.
+
+=cut
+
+my %licenses = (
+ apache => [ 'Apache-2.0' ],
+ artistic => [ 'Artistic' ],
+ artistic_2 => [ 'Artistic-2' ],
+ bsd => [ 'BSD' ],
+ gpl => [ 'GPL-1' ],
+ gpl2 => [ 'GPL-2' ],
+ gpl3 => [ 'GPL-3' ],
+ lgpl => [ 'LGPL-2.1' ],
+ lgpl2 => [ 'LGPL-2.1' ],
+ lgpl3 => [ 'LGPL-3' ],
+ mit => [ 'MIT' ],
+ mozilla => [ 'MPL-1.1' ],
+ perl => [ 'Artistic', 'GPL-2' ],
+);
+
+sub license_c2g {
+ my %seen;
+ grep !$seen{$_}++, map @{$licenses{+lc} || []}, @_;
+}
+
+=head2 C<version_c2g $version>
+
+Converts a CPAN version to a Gentoo version.
+
+=cut
+
+sub version_c2g {
+ my ($v) = @_;
+
+ return unless defined $v;
+
+ $v =~ y/-/_/;
+ $v =~ y/0-9._//cd;
+
+ $v =~ s/^[._]*//;
+ $v =~ s/[._]*$//;
+ $v =~ s/([._])[._]*/$1/g;
+
+ ($v, my $patch, my @rest) = split /_/, $v;
+ $v .= '_p' . $patch if defined $patch;
+ $v .= join('.', '', @rest) if @rest;
+
+ return $v;
+}
+
=head1 SEE ALSO
L<CPANPLUS::Dist::Gentoo>.
__DATA__
ANSIColor Term-ANSIColor
+AcePerl Ace
Audio-CD Audio-CD-disc-cover
CGI-Simple Cgi-Simple
Cache-Mmap cache-mmap
Crypt-Random crypt-random
DBIx-SearchBuilder dbix-searchbuilder
Data-Buffer data-buffer
+Date-Manip DateManip
Digest digest-base
Digest-BubbleBabble digest-bubblebabble
Digest-MD2 digest-md2
Log-Dispatch log-dispatch
Math-Pari math-pari
Module-Info module-info
+NTLM Authen-NTLM
Net-Ping net-ping
Net-SFTP net-sftp
Net-SSH-Perl net-ssh-perl
OLE-Storage_Lite OLE-StorageLite
Ogg-Vorbis-Header ogg-vorbis-header
PathTools File-Spec
+Perl-Tidy perltidy
Pod-Parser PodParser
Regexp-Common regexp-common
SDL_Perl sdl-perl