X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FCPANPLUS%2FDist%2FGentoo%2FAtom.pm;h=b9adeeef8ab8b6ca4f07061dfa13483fb229c8e6;hb=be982bd595059880773785ac66270369de53a309;hp=59f1d6ac959c4430a8207ad493a95d70f87f0408;hpb=3a6840c4ec1f85e05975608542b33a53eacbfac1;p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git diff --git a/lib/CPANPLUS/Dist/Gentoo/Atom.pm b/lib/CPANPLUS/Dist/Gentoo/Atom.pm index 59f1d6a..b9adeee 100644 --- a/lib/CPANPLUS/Dist/Gentoo/Atom.pm +++ b/lib/CPANPLUS/Dist/Gentoo/Atom.pm @@ -9,11 +9,11 @@ CPANPLUS::Dist::Gentoo::Atom - Gentoo atom object. =head1 VERSION -Version 0.10 +Version 0.11 =cut -our $VERSION = '0.10'; +our $VERSION = '0.11'; =head1 DESCRIPTION @@ -53,7 +53,7 @@ sub new { my ($range, $category, $name, $version); if (defined $args{name}) { - ($range, $category, $name, $version) = @args{qw/range category name version/}; + ($range, $category, $name, $version) = @args{qw}; Carp::confess('Category unspecified') unless defined $category; Carp::confess('Invalid category') unless $category =~ /^$category_rx$/o; Carp::confess('Invalid name') unless $name =~ /^$name_rx$/o; @@ -119,7 +119,7 @@ sub new_from_ebuild { } BEGIN { - eval "sub $_ { \$_[0]->{$_} }" for qw/category name version range ebuild/; + eval "sub $_ { \$_[0]->{$_} }" for qw; } =head2 C @@ -300,7 +300,7 @@ sub fold { =pod -This class provides overloaded methods for numerical comparison, string comparison and strigification. +This class provides overloaded methods for numerical comparison, string comparison and stringification. =head1 SEE ALSO