1 package CPANPLUS::Dist::Gentoo::Version;
8 CPANPLUS::Dist::Gentoo::Version - Gentoo version object.
16 our $VERSION = '0.12';
20 This class models Gentoo versions as described in L<http://devmanual.gentoo.org/ebuild-writing/file-format/index.html>.
27 '<=>' => \&_spaceship,
31 my $int_rx = qr/[0-9]+/;
32 my $letter_rx = qr/[a-zA-Z]/;
33 my $dotted_num_rx = qr/$int_rx(?:\.$int_rx)*/o;
35 my @suffixes = qw<alpha beta pre rc normal p>;
36 my $suffix_rx = join '|', grep !/^normal$/, @suffixes;
37 $suffix_rx = qr/(?:$suffix_rx)/o;
40 $dotted_num_rx $letter_rx?
41 (?:_$suffix_rx$int_rx?)*
45 my $capturing_version_rx = qr{
46 ($dotted_num_rx) ($letter_rx)?
47 ((?:_$suffix_rx$int_rx?)*)
55 my $cdgv = CPANPLUS::Dist::Gentoo::Version->new($vstring);
57 Creates a new L<CPANPLUS::Dist::Gentoo::Version> object from the version string C<$vstring>.
63 $class = ref($class) || $class;
66 if (defined $vstring) {
67 $vstring =~ s/^[._]+//g;
68 $vstring =~ s/[._]+$//g;
70 if ($vstring =~ /^$capturing_version_rx$/o) {
73 version => [ split /\.+/, $1 ],
75 suffixes => [ map /_($suffix_rx)($int_rx)?/go, $3 ],
81 Carp::croak("Couldn't parse version string '$vstring'");
85 Carp::croak('You must specify a version string');
90 @parts = qw<version letter suffixes revision>;
91 eval "sub $_ { \$_[0]->{$_} }" for @parts;
96 Read-only accessor for the C<version> part of the version object.
100 Read-only accessor for the C<letter> part of the version object.
104 Read-only accessor for the C<suffixes> part of the version object.
108 Read-only accessor for the C<revision> part of the version object.
112 my %suffix_grade = do {
114 map { $_ => ++$i } @suffixes;
118 my ($v1, $v2, $r) = @_;
120 unless (Scalar::Util::blessed($v2) and $v2->isa(__PACKAGE__)) {
124 ($v1, $v2) = ($v2, $v1) if $r;
127 my @a = @{ $v1->version };
128 my @b = @{ $v2->version };
141 if ($x =~ /^0/ or $y =~ /^0/) {
155 my ($l1, $l2) = map { defined() ? ord : 0 } map $_->letter, $v1, $v2;
162 my @a = @{ $v1->suffixes };
163 my @b = @{ $v2->suffixes };
166 my $x = $suffix_grade{ shift(@a) || 'normal' };
167 my $y = $suffix_grade{ shift(@b) || 'normal' };
179 my ($r1, $r2) = map { defined() ? $_ : 0 } map $_->revision, $v1, $v2;
191 my ($version, $letter, $suffixes, $revision) = map $v->$_, @parts;
192 my @suffixes = @$suffixes;
194 $version = join '.', @$version;
195 $version .= $letter if defined $letter;
196 while (my @suffix = splice @suffixes, 0, 2) {
199 $version .= "_$s" . (defined $n ? $n : '');
201 $version .= "-r$revision" if defined $revision;
208 This class provides overloaded methods for numerical comparison and stringification.
212 L<CPANPLUS::Dist::Gentoo>.
216 Vincent Pit, C<< <perl at profvince.com> >>, L<http://www.profvince.com>.
218 You can contact me by mail or on C<irc.perl.org> (vincent).
222 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>.
223 I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
227 You can find documentation for this module with the perldoc command.
229 perldoc CPANPLUS::Dist::Gentoo
231 =head1 COPYRIGHT & LICENSE
233 Copyright 2009,2010,2011,2012 Vincent Pit, all rights reserved.
235 This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
239 1; # End of CPANPLUS::Dist::Gentoo::Version