=head1 VERSION
-Version 0.05
+Version 0.10
=cut
-our $VERSION = '0.05';
+our $VERSION = '0.10';
=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;
+}
+
+=head2 C<perl_version_c2g $version>
+
+Converts a perl version as you can find it in prerequisites to a Gentoo version number.
+
+=cut
+
+sub perl_version_c2g {
+ my ($v) = @_;
+
+ return unless defined $v and $v =~ /^[0-9\.]+$/;
+
+ my @parts;
+ if (my ($version, $subversion) = $v =~ /^([0-9]+)\.(0[^\.]+)$/) {
+ my $len = length $subversion;
+ if (my $pad = $len % 3) {
+ $subversion .= '0' x (3 - $pad);
+ }
+ @parts = ($version, $subversion =~ /(.{1,3})/g);
+ } else {
+ @parts = split /\./, $v;
+ }
+
+ return join '.', map int, @parts;
+}
+
=head1 SEE ALSO
L<CPANPLUS::Dist::Gentoo>.
=head1 BUGS
-Please report any bugs or feature requests to C<bug-cpanplus-dist-gentoo at rt.cpan.org>, or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=CPANPLUS-Dist-Gentoo>. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
+Please report any bugs or feature requests to C<bug-cpanplus-dist-gentoo at rt.cpan.org>, or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=CPANPLUS-Dist-Gentoo>.
+I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
=head1 SUPPORT
=head1 COPYRIGHT & LICENSE
-Copyright 2009 Vincent Pit, all rights reserved.
+Copyright 2009,2010 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.
__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
Tie-EncryptedHash tie-encryptedhash
Tk perl-tk
Wx wxperl
+XML-Sablotron XML-Sablot
YAML yaml
gettext Locale-gettext
txt2html TextToHTML