X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FCPANPLUS%2FDist%2FGentoo%2FAtom.pm;h=71bc72eb56f27cf7d75c251b116fe35ce326904c;hb=39780a6e003df06b2cc73bfbb80b6c2e16b12574;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..71bc72e 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