开源软件构建与测试

_service:tar_scm:perl-CPAN-Meta-Requirements.spec Changed

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/xt/release Deleted

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/xt/release/distmeta.t Deleted

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/xt/release/minimum-version.t Deleted

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/xt/release/portability.t Deleted

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/Changes -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/Changes Changed

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/LICENSE -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/LICENSE Changed

@@ -292,21 +292,21 @@
 
   - "Package" refers to the collection of files distributed by the Copyright
     Holder, and derivatives of that collection of files created through
-    textual modification. 
+    textual modification.
   - "Standard Version" refers to such a Package if it has not been modified,
     or has been modified in accordance with the wishes of the Copyright
-    Holder. 
+    Holder.
   - "Copyright Holder" is whoever is named in the copyright or copyrights for
-    the package. 
+    the package.
   - "You" is you, if you're thinking about copying or distributing this Package.
   - "Reasonable copying fee" is whatever you can justify on the basis of media
     cost, duplication charges, time of people involved, and so on. (You will
     not be required to justify it to the Copyright Holder, but only to the
-    computing community at large as a market that must bear the fee.) 
+    computing community at large as a market that must bear the fee.)
   - "Freely Available" means that no fee is charged for the item itself, though
     there may be fees involved in handling the item. It also means that
     recipients of the item may redistribute it under the same conditions they
-    received it. 
+    received it.
 
 1. You may make and give away verbatim copies of the source form of the
 Standard Version of this Package without restriction, provided that you
@@ -373,7 +373,7 @@
 
 9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
 WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 
 The End

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/MANIFEST -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/MANIFEST Changed

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/META.json -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/META.json Changed

@@ -5,7 +5,7 @@
       "Ricardo Signes <rjbs@cpan.org>"
    ,
    "dynamic_config" : 0,
-   "generated_by" : "Dist::Zilla version 5.042, CPAN::Meta::Converter version 2.150001",
+   "generated_by" : "Dist::Zilla version 6.030, CPAN::Meta::Converter version 2.150010",
    "license" : 
       "perl_5"
    ,
@@ -29,7 +29,7 @@
       "configure" : {
          "requires" : {
             "ExtUtils::MakeMaker" : "6.17",
-            "perl" : "5.006"
+            "perl" : "v5.10.0"
          }
       },
       "develop" : {
@@ -87,28 +87,30 @@
             "Dist::Zilla::Plugin::Test::Version" : "0",
             "Dist::Zilla::Plugin::TestRelease" : "0",
             "Dist::Zilla::Plugin::UploadToCPAN" : "0",
-            "English" : "0",
             "File::Spec" : "0",
             "File::Temp" : "0",
             "IO::Handle" : "0",
             "IPC::Open3" : "0",
             "Pod::Coverage::TrustPod" : "0",
+            "Pod::Weaver::PluginBundle::DAGOLDEN" : "0",
             "Pod::Wordlist" : "0",
             "Software::License::Perl_5" : "0",
             "Test::CPAN::Meta" : "0",
+            "Test::MinimumVersion" : "0",
             "Test::More" : "0",
+            "Test::Perl::Critic" : "0",
             "Test::Pod" : "1.41",
             "Test::Pod::Coverage" : "1.08",
+            "Test::Portability::Files" : "0",
             "Test::Spelling" : "0.12",
-            "Test::Version" : "1",
-            "blib" : "1.01"
+            "Test::Version" : "1"
          }
       },
       "runtime" : {
          "requires" : {
             "B" : "0",
             "Carp" : "0",
-            "perl" : "5.006",
+            "perl" : "v5.10.0",
             "strict" : "0",
             "version" : "0.88",
             "warnings" : "0"
@@ -122,7 +124,7 @@
             "ExtUtils::MakeMaker" : "0",
             "File::Spec" : "0",
             "Test::More" : "0.88",
-            "perl" : "5.006",
+            "perl" : "v5.10.0",
             "version" : "0.88"
          }
       }
@@ -130,7 +132,11 @@
    "provides" : {
       "CPAN::Meta::Requirements" : {
          "file" : "lib/CPAN/Meta/Requirements.pm",
-         "version" : "2.140"
+         "version" : "2.143"
+      },
+      "CPAN::Meta::Requirements::Range" : {
+         "file" : "lib/CPAN/Meta/Requirements/Range.pm",
+         "version" : "2.143"
       }
    },
    "release_status" : "stable",
@@ -145,13 +151,21 @@
          "web" : "https://github.com/Perl-Toolchain-Gang/CPAN-Meta-Requirements"
       }
    },
-   "version" : "2.140",
+   "version" : "2.143",
    "x_authority" : "cpan:DAGOLDEN",
    "x_contributors" : 
       "Ed J <mohawk2@users.noreply.github.com>",
+      "Graham Knop <haarg@haarg.org>",
       "Karen Etheridge <ether@cpan.org>",
       "Leon Timmermans <fawaka@gmail.com>",
-      "robario <webmaster@robario.com>"
-   
+      "Paul Howarth <paul@city-fan.org>",
+      "Ricardo Signes <rjbs@semiotic.systems>",
+      "robario <webmaster@robario.com>",
+      "Tatsuhiko Miyagawa <miyagawa@bulknews.net>",
+      "Tatsuhiko Miyagawa <miyagawa@gmail.com>"
+   ,
+   "x_generated_by_perl" : "v5.37.10",
+   "x_serialization_backend" : "Cpanel::JSON::XS version 4.36",
+   "x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later"
 }

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/META.yml -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/META.yml Changed

@@ -7,13 +7,13 @@
   ExtUtils::MakeMaker: '0'
   File::Spec: '0'
   Test::More: '0.88'
-  perl: '5.006'
+  perl: v5.10.0
   version: '0.88'
 configure_requires:
   ExtUtils::MakeMaker: '6.17'
-  perl: '5.006'
+  perl: v5.10.0
 dynamic_config: 0
-generated_by: 'Dist::Zilla version 5.042, CPAN::Meta::Converter version 2.150001'
+generated_by: 'Dist::Zilla version 6.030, CPAN::Meta::Converter version 2.150010'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -30,11 +30,14 @@
 provides:
   CPAN::Meta::Requirements:
     file: lib/CPAN/Meta/Requirements.pm
-    version: '2.140'
+    version: '2.143'
+  CPAN::Meta::Requirements::Range:
+    file: lib/CPAN/Meta/Requirements/Range.pm
+    version: '2.143'
 requires:
   B: '0'
   Carp: '0'
-  perl: '5.006'
+  perl: v5.10.0
   strict: '0'
   version: '0.88'
   warnings: '0'
@@ -42,10 +45,18 @@
   bugtracker: https://github.com/Perl-Toolchain-Gang/CPAN-Meta-Requirements/issues
   homepage: https://github.com/Perl-Toolchain-Gang/CPAN-Meta-Requirements
   repository: https://github.com/Perl-Toolchain-Gang/CPAN-Meta-Requirements.git
-version: '2.140'
+version: '2.143'
 x_authority: cpan:DAGOLDEN
 x_contributors:
   - 'Ed J <mohawk2@users.noreply.github.com>'
+  - 'Graham Knop <haarg@haarg.org>'
   - 'Karen Etheridge <ether@cpan.org>'
   - 'Leon Timmermans <fawaka@gmail.com>'
+  - 'Paul Howarth <paul@city-fan.org>'
+  - 'Ricardo Signes <rjbs@semiotic.systems>'
   - 'robario <webmaster@robario.com>'
+  - 'Tatsuhiko Miyagawa <miyagawa@bulknews.net>'
+  - 'Tatsuhiko Miyagawa <miyagawa@gmail.com>'
+x_generated_by_perl: v5.37.10
+x_serialization_backend: 'YAML::Tiny version 1.73'
+x_spdx_expression: 'Artistic-1.0-Perl OR GPL-1.0-or-later'

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/Makefile.PL -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/Makefile.PL Changed

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/README -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/README Changed

@@ -2,7 +2,7 @@
     CPAN::Meta::Requirements - a set of version requirements for a CPAN dist
 
 VERSION
-    version 2.140
+    version 2.143
 
 SYNOPSIS
       use CPAN::Meta::Requirements;
@@ -20,7 +20,7 @@
 DESCRIPTION
     A CPAN::Meta::Requirements object models a set of version constraints
     like those specified in the META.yml or META.json files in CPAN
-    distributions, and as defined by CPAN::Meta::Spec; It can be built up by
+    distributions, and as defined by CPAN::Meta::Spec. It can be built up by
     adding more and more constraints, and it will reduce them to the
     simplest representation.
 
@@ -87,6 +87,9 @@
 
     This method returns the requirements object.
 
+  version_range_for_module
+      $req->version_range_for_module( $another_req_object );
+
   add_requirements
       $req->add_requirements( $another_req_object );
 
@@ -246,12 +249,22 @@
 CONTRIBUTORS
     *   Ed J <mohawk2@users.noreply.github.com>
 
+    *   Graham Knop <haarg@haarg.org>
+
     *   Karen Etheridge <ether@cpan.org>
 
     *   Leon Timmermans <fawaka@gmail.com>
 
+    *   Paul Howarth <paul@city-fan.org>
+
+    *   Ricardo Signes <rjbs@semiotic.systems>
+
     *   robario <webmaster@robario.com>
 
+    *   Tatsuhiko Miyagawa <miyagawa@bulknews.net>
+
+    *   Tatsuhiko Miyagawa <miyagawa@gmail.com>
+
 COPYRIGHT AND LICENSE
     This software is copyright (c) 2010 by David Golden and Ricardo Signes.

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/cpanfile -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/cpanfile Changed

@@ -1,6 +1,9 @@
+# This file is generated by Dist::Zilla::Plugin::CPANFile v6.030
+# Do not edit this file directly. To change prereqs, edit the `dist.ini` file.
+
 requires "B" => "0";
 requires "Carp" => "0";
-requires "perl" => "5.006";
+requires "perl" => "v5.10.0";
 requires "strict" => "0";
 requires "version" => "0.88";
 requires "warnings" => "0";
@@ -9,7 +12,7 @@
   requires "ExtUtils::MakeMaker" => "0";
   requires "File::Spec" => "0";
   requires "Test::More" => "0.88";
-  requires "perl" => "5.006";
+  requires "perl" => "v5.10.0";
   requires "version" => "0.88";
 };
 
@@ -19,7 +22,7 @@
 
 on 'configure' => sub {
   requires "ExtUtils::MakeMaker" => "6.17";
-  requires "perl" => "5.006";
+  requires "perl" => "v5.10.0";
 };
 
 on 'develop' => sub {
@@ -76,19 +79,21 @@
   requires "Dist::Zilla::Plugin::Test::Version" => "0";
   requires "Dist::Zilla::Plugin::TestRelease" => "0";
   requires "Dist::Zilla::Plugin::UploadToCPAN" => "0";
-  requires "English" => "0";
   requires "File::Spec" => "0";
   requires "File::Temp" => "0";
   requires "IO::Handle" => "0";
   requires "IPC::Open3" => "0";
   requires "Pod::Coverage::TrustPod" => "0";
+  requires "Pod::Weaver::PluginBundle::DAGOLDEN" => "0";
   requires "Pod::Wordlist" => "0";
   requires "Software::License::Perl_5" => "0";
   requires "Test::CPAN::Meta" => "0";
+  requires "Test::MinimumVersion" => "0";
   requires "Test::More" => "0";
+  requires "Test::Perl::Critic" => "0";
   requires "Test::Pod" => "1.41";
   requires "Test::Pod::Coverage" => "1.08";
+  requires "Test::Portability::Files" => "0";
   requires "Test::Spelling" => "0.12";
   requires "Test::Version" => "1";
-  requires "blib" => "1.01";
 };

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/dist.ini -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/dist.ini Changed

@@ -36,7 +36,7 @@
 xt_mode = 1
 
 Test::MinimumVersion / Dist::Zilla::PluginBundle::DAGOLDEN/Test::MinimumVersion
-max_target_perl = 5.006
+max_target_perl = 5.010
 
 Test::ReportPrereqs / Dist::Zilla::PluginBundle::DAGOLDEN/Test::ReportPrereqs
 
@@ -82,6 +82,7 @@
 remote = github
 
 Prereqs::AuthorDeps / Dist::Zilla::PluginBundle::DAGOLDEN/Prereqs::AuthorDeps
+; authordep Pod::Weaver::PluginBundle::DAGOLDEN
 
 MetaYAML / Dist::Zilla::PluginBundle::DAGOLDEN/MetaYAML
 
@@ -100,7 +101,6 @@
 PromptIfStale / Dist::Zilla::PluginBundle::DAGOLDEN/PromptIfStale
 check_all_plugins = 1
 modules = Dist::Zilla
-modules = Dist::Zilla::PluginBundle::DAGOLDEN
 
 CopyFilesFromBuild::Filtered / Dist::Zilla::PluginBundle::DAGOLDEN/CopyFilesFromBuild::Filtered
 copy = Makefile.PL
@@ -108,6 +108,7 @@
 Manifest / Dist::Zilla::PluginBundle::DAGOLDEN/Manifest
 
 Git::CheckFor::CorrectBranch / Dist::Zilla::PluginBundle::DAGOLDEN/Git::CheckFor::CorrectBranch
+release_branch = main
 
 Git::Check / Dist::Zilla::PluginBundle::DAGOLDEN/Git::Check
 allow_dirty = Makefile.PL
@@ -145,7 +146,7 @@
 commit_msg = After release: bump $VERSION and timestamp Changes
 
 Git::Push / Dist::Zilla::PluginBundle::DAGOLDEN/Git::Push
-push_to = origin
+push_to = github
 
 MakeMaker::Highlander
 :version = 0.003

_service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/lib/CPAN/Meta/Requirements Added

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/lib/CPAN/Meta/Requirements.pm -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/lib/CPAN/Meta/Requirements.pm Changed

@@ -1,10 +1,12 @@
-use 5.006; # keep at v5.6 for CPAN.pm
+use v5.10;
 use strict;
 use warnings;
 package CPAN::Meta::Requirements;
 # ABSTRACT: a set of version requirements for a CPAN dist
 
-our $VERSION = '2.140';
+our $VERSION = '2.143';
+
+use CPAN::Meta::Requirements::Range;
 
 #pod =head1 SYNOPSIS
 #pod
@@ -24,7 +26,7 @@
 #pod
 #pod A CPAN::Meta::Requirements object models a set of version constraints like
 #pod those specified in the F<META.yml> or F<META.json> files in CPAN distributions,
-#pod and as defined by L<CPAN::Meta::Spec>;
+#pod and as defined by L<CPAN::Meta::Spec>.
 #pod It can be built up by adding more and more constraints, and it will reduce them
 #pod to the simplest representation.
 #pod
@@ -35,25 +37,6 @@
 
 use Carp ();
 
-# To help ExtUtils::MakeMaker bootstrap CPAN::Meta::Requirements on perls
-# before 5.10, we fall back to the EUMM bundled compatibility version module if
-# that's the only thing available.  This shouldn't ever happen in a normal CPAN
-# install of CPAN::Meta::Requirements, as version.pm will be picked up from
-# prereqs and be available at runtime.
-
-BEGIN {
-  eval "use version ()"; ## no critic
-  if ( my $err = $@ ) {
-    eval "use ExtUtils::MakeMaker::version" or die $err; ## no critic
-  }
-}
-
-# Perl 5.10.0 didn't have "is_qv" in version.pm
-*_is_qv = version->can('is_qv') ? sub { $_0->is_qv } : sub { exists $_0->{qv} };
-
-# construct once, reuse many times
-my $V0 = version->new(0);
-
 #pod =method new
 #pod
 #pod   my $req = CPAN::Meta::Requirements->new;
@@ -83,82 +66,6 @@
   return bless \%self => $class;
 }
 
-# from version::vpp
-sub _find_magic_vstring {
-  my $value = shift;
-  my $tvalue = '';
-  require B;
-  my $sv = B::svref_2object(\$value);
-  my $magic = ref($sv) eq 'B::PVMG' ? $sv->MAGIC : undef;
-  while ( $magic ) {
-    if ( $magic->TYPE eq 'V' ) {
-      $tvalue = $magic->PTR;
-      $tvalue =~ s/^v?(.+)$/v$1/;
-      last;
-    }
-    else {
-      $magic = $magic->MOREMAGIC;
-    }
-  }
-  return $tvalue;
-}
-
-# safe if given an unblessed reference
-sub _isa_version {
-  UNIVERSAL::isa( $_0, 'UNIVERSAL' ) && $_0->isa('version')
-}
-
-sub _version_object {
-  my ($self, $module, $version) = @_;
-
-  my ($vobj, $err);
-
-  if (not defined $version or (!ref($version) && $version eq '0')) {
-    return $V0;
-  }
-  elsif ( ref($version) eq 'version' || ( ref($version) && _isa_version($version) ) ) {
-    $vobj = $version;
-  }
-  else {
-    # hack around version::vpp not handling <3 character vstring literals
-    if ( $INC{'version/vpp.pm'} || $INC{'ExtUtils/MakeMaker/version/vpp.pm'} ) {
-      my $magic = _find_magic_vstring( $version );
-      $version = $magic if length $magic;
-    }
-    # pad to 3 characters if before 5.8.1 and appears to be a v-string
-    if ( $ < 5.008001 && $version !~ /\A0-9/ && substr($version,0,1) ne 'v' && length($version) < 3 ) {
-      $version .= "\0" x (3 - length($version));
-    }
-    eval {
-      local $SIG{__WARN__} = sub { die "Invalid version: $_0" };
-      # avoid specific segfault on some older version.pm versions
-      die "Invalid version: $version" if $version eq 'version';
-      $vobj = version->new($version);
-    };
-    if ( my $err = $@ ) {
-      my $hook = $self->{bad_version_hook};
-      $vobj = eval { $hook->($version, $module) }
-        if ref $hook eq 'CODE';
-      unless (eval { $vobj->isa("version") }) {
-        $err =~ s{ at .* line \d+.*$}{};
-        die "Can't convert '$version': $err";
-      }
-    }
-  }
-
-  # ensure no leading '.'
-  if ( $vobj =~ m{\A\.} ) {
-    $vobj = version->new("0$vobj");
-  }
-
-  # ensure normal v-string form
-  if ( _is_qv($vobj) ) {
-    $vobj = version->new($vobj->normal);
-  }
-
-  return $vobj;
-}
-
 #pod =method add_minimum
 #pod
 #pod   $req->add_minimum( $module => $version );
@@ -219,8 +126,6 @@
     my $code = sub {
       my ($self, $name, $version) = @_;
 
-      $version = $self->_version_object( $name, $version );
-
       $self->__modify_entry_for($name, $method, $version);
 
       return $self;
@@ -240,20 +145,29 @@
   # which preserves the user's choice of "0.00" as the requirement
   if (not defined $version or "$version" eq '0') {
     return $self if $self->__entry_for($name);
-    Carp::confess("can't add new requirements to finalized requirements")
+    Carp::croak("can't add new requirements to finalized requirements")
       if $self->is_finalized;
 
     $self->{requirements}{ $name } =
-      CPAN::Meta::Requirements::_Range::Range->with_minimum($V0, $name);
+      CPAN::Meta::Requirements::Range->with_minimum('0', $name);
   }
   else {
-    $version = $self->_version_object( $name, $version );
-
     $self->__modify_entry_for($name, 'with_minimum', $version);
   }
   return $self;
 }
 
+#pod =method version_range_for_module
+#pod
+#pod   $req->version_range_for_module( $another_req_object );
+#pod
+#pod =cut
+
+sub version_range_for_module {
+  my ($self, $module) = @_;
+  return $self->{requirements}{$module};
+}
+
 #pod =method add_requirements
 #pod
 #pod   $req->add_requirements( $another_req_object );
@@ -270,11 +184,8 @@
   my ($self, $req) = @_;
 
   for my $module ($req->required_modules) {
-    my $modifiers = $req->__entry_for($module)->as_modifiers;
-    for my $modifier (@$modifiers) {
-      my ($method, @args) = @$modifier;
-      $self->$method($module => @args);
-    };
+    my $new_range = $req->version_range_for_module($module);
+    $self->__modify_entry_for($module, 'with_range', $new_range);
   }
 
   return $self;
@@ -300,10 +211,8 @@
 sub accepts_module {
   my ($self, $module, $version) = @_;
 
-  $version = $self->_version_object( $module, $version );
-
   return 1 unless my $range = $self->__entry_for($module);
-  return $range->_accepts($version);
+  return $range->accepts($version);
 }

_service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/lib/CPAN/Meta/Requirements/Range.pm Added

@@ -0,0 +1,776 @@
+use v5.10;
+use strict;
+use warnings;
+package CPAN::Meta::Requirements::Range;
+# ABSTRACT: a set of version requirements for a CPAN dist
+
+our $VERSION = '2.143';
+
+use Carp ();
+
+#pod =head1 SYNOPSIS
+#pod
+#pod   use CPAN::Meta::Requirements::Range;
+#pod
+#pod   my $range = CPAN::Meta::Requirements::Range->with_minimum(1);
+#pod
+#pod   $range = $range->with_maximum('v2.2');
+#pod
+#pod   my $stringified = $range->as_string;
+#pod
+#pod =head1 DESCRIPTION
+#pod
+#pod A CPAN::Meta::Requirements::Range object models a set of version constraints like
+#pod those specified in the F<META.yml> or F<META.json> files in CPAN distributions,
+#pod and as defined by L<CPAN::Meta::Spec>;
+#pod It can be built up by adding more and more constraints, and it will reduce them
+#pod to the simplest representation.
+#pod
+#pod Logically impossible constraints will be identified immediately by thrown
+#pod exceptions.
+#pod
+#pod =cut
+
+use Carp ();
+
+package
+  CPAN::Meta::Requirements::Range::_Base;
+
+# To help ExtUtils::MakeMaker bootstrap CPAN::Meta::Requirements on perls
+# before 5.10, we fall back to the EUMM bundled compatibility version module if
+# that's the only thing available.  This shouldn't ever happen in a normal CPAN
+# install of CPAN::Meta::Requirements, as version.pm will be picked up from
+# prereqs and be available at runtime.
+
+BEGIN {
+  eval "use version ()"; ## no critic
+  if ( my $err = $@ ) {
+    eval "use ExtUtils::MakeMaker::version" or die $err; ## no critic
+  }
+}
+
+# from version::vpp
+sub _find_magic_vstring {
+  my $value = shift;
+  my $tvalue = '';
+  require B;
+  my $sv = B::svref_2object(\$value);
+  my $magic = ref($sv) eq 'B::PVMG' ? $sv->MAGIC : undef;
+  while ( $magic ) {
+    if ( $magic->TYPE eq 'V' ) {
+      $tvalue = $magic->PTR;
+      $tvalue =~ s/^v?(.+)$/v$1/;
+      last;
+    }
+    else {
+      $magic = $magic->MOREMAGIC;
+    }
+  }
+  return $tvalue;
+}
+
+# Perl 5.10.0 didn't have "is_qv" in version.pm
+*_is_qv = version->can('is_qv') ? sub { $_0->is_qv } : sub { exists $_0->{qv} };
+
+# construct once, reuse many times
+my $V0 = version->new(0);
+
+# safe if given an unblessed reference
+sub _isa_version {
+  UNIVERSAL::isa( $_0, 'UNIVERSAL' ) && $_0->isa('version')
+}
+
+sub _version_object {
+  my ($self, $version, $module, $bad_version_hook) = @_;
+
+  my ($vobj, $err);
+
+  if (not defined $version or (!ref($version) && $version eq '0')) {
+    return $V0;
+  }
+  elsif ( ref($version) eq 'version' || ( ref($version) && _isa_version($version) ) ) {
+    $vobj = $version;
+  }
+  else {
+    # hack around version::vpp not handling <3 character vstring literals
+    if ( $INC{'version/vpp.pm'} || $INC{'ExtUtils/MakeMaker/version/vpp.pm'} ) {
+      my $magic = _find_magic_vstring( $version );
+      $version = $magic if length $magic;
+    }
+    # pad to 3 characters if before 5.8.1 and appears to be a v-string
+    if ( $ < 5.008001 && $version !~ /\A0-9/ && substr($version,0,1) ne 'v' && length($version) < 3 ) {
+      $version .= "\0" x (3 - length($version));
+    }
+    eval {
+      local $SIG{__WARN__} = sub { die "Invalid version: $_0" };
+      # avoid specific segfault on some older version.pm versions
+      die "Invalid version: $version" if $version eq 'version';
+      $vobj = version->new($version);
+    };
+    if ( my $err = $@ ) {
+      $vobj = eval { $bad_version_hook->($version, $module) }
+        if ref $bad_version_hook eq 'CODE';
+      unless (eval { $vobj->isa("version") }) {
+        $err =~ s{ at .* line \d+.*$}{};
+        die "Can't convert '$version': $err";
+      }
+    }
+  }
+
+  # ensure no leading '.'
+  if ( $vobj =~ m{\A\.} ) {
+    $vobj = version->new("0$vobj");
+  }
+
+  # ensure normal v-string form
+  if ( _is_qv($vobj) ) {
+    $vobj = version->new($vobj->normal);
+  }
+
+  return $vobj;
+}
+
+#pod =method with_string_requirement
+#pod
+#pod   $req->with_string_requirement('>= 1.208, <= 2.206');
+#pod   $req->with_string_requirement(v1.208);
+#pod
+#pod This method parses the passed in string and adds the appropriate requirement.
+#pod A version can be a Perl "v-string".  It understands version ranges as described
+#pod in the L<CPAN::Meta::Spec/Version Ranges>. For example:
+#pod
+#pod =over 4
+#pod
+#pod =item 1.3
+#pod
+#pod =item >= 1.3
+#pod
+#pod =item <= 1.3
+#pod
+#pod =item == 1.3
+#pod
+#pod =item != 1.3
+#pod
+#pod =item > 1.3
+#pod
+#pod =item < 1.3
+#pod
+#pod =item >= 1.3, != 1.5, <= 2.0
+#pod
+#pod A version number without an operator is equivalent to specifying a minimum
+#pod (C<E<gt>=>).  Extra whitespace is allowed.
+#pod
+#pod =back
+#pod
+#pod =cut
+
+my %methods_for_op = (
+  '==' =>  qw(with_exact_version) ,
+  '!=' =>  qw(with_exclusion) ,
+  '>=' =>  qw(with_minimum)   ,
+  '<=' =>  qw(with_maximum)   ,
+  '>'  =>  qw(with_minimum with_exclusion) ,
+  '<'  =>  qw(with_maximum with_exclusion) ,
+);
+
+sub with_string_requirement {
+  my ($self, $req, $module, $bad_version_hook) = @_;
+  $module //= 'module';
+
+  unless ( defined $req && length $req ) {
+    $req = 0;
+    Carp::carp("Undefined requirement for $module treated as '0'");
+  }
+
+  my $magic = _find_magic_vstring( $req );
+  if (length $magic) {
+    return $self->with_minimum($magic, $module, $bad_version_hook);
+  }
+
+  my @parts = split qr{\s*,\s*}, $req;
+
+  for my $part (@parts) {
+    my ($op, $ver) = $part =~ m{\A\s*(==|>=|>|<=|<|!=)\s*(.*)\z};
+
+    if (! defined $op) {
+      $self = $self->with_minimum($part, $module, $bad_version_hook);
+    } else {
+      Carp::croak("illegal requirement string: $req")
+        unless my $methods = $methods_for_op{ $op };

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/t/00-report-prereqs.dd -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/t/00-report-prereqs.dd Changed

@@ -2,7 +2,7 @@
        'configure' => {
                         'requires' => {
                                         'ExtUtils::MakeMaker' => '6.17',
-                                        'perl' => '5.006'
+                                        'perl' => 'v5.10.0'
                                       }
                       },
        'develop' => {
@@ -60,28 +60,30 @@
                                       'Dist::Zilla::Plugin::Test::Version' => '0',
                                       'Dist::Zilla::Plugin::TestRelease' => '0',
                                       'Dist::Zilla::Plugin::UploadToCPAN' => '0',
-                                      'English' => '0',
                                       'File::Spec' => '0',
                                       'File::Temp' => '0',
                                       'IO::Handle' => '0',
                                       'IPC::Open3' => '0',
                                       'Pod::Coverage::TrustPod' => '0',
+                                      'Pod::Weaver::PluginBundle::DAGOLDEN' => '0',
                                       'Pod::Wordlist' => '0',
                                       'Software::License::Perl_5' => '0',
                                       'Test::CPAN::Meta' => '0',
+                                      'Test::MinimumVersion' => '0',
                                       'Test::More' => '0',
+                                      'Test::Perl::Critic' => '0',
                                       'Test::Pod' => '1.41',
                                       'Test::Pod::Coverage' => '1.08',
+                                      'Test::Portability::Files' => '0',
                                       'Test::Spelling' => '0.12',
-                                      'Test::Version' => '1',
-                                      'blib' => '1.01'
+                                      'Test::Version' => '1'
                                     }
                     },
        'runtime' => {
                       'requires' => {
                                       'B' => '0',
                                       'Carp' => '0',
-                                      'perl' => '5.006',
+                                      'perl' => 'v5.10.0',
                                       'strict' => '0',
                                       'version' => '0.88',
                                       'warnings' => '0'
@@ -95,7 +97,7 @@
                                    'ExtUtils::MakeMaker' => '0',
                                    'File::Spec' => '0',
                                    'Test::More' => '0.88',
-                                   'perl' => '5.006',
+                                   'perl' => 'v5.10.0',
                                    'version' => '0.88'
                                  }
                  }

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/t/00-report-prereqs.t -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/t/00-report-prereqs.t Changed

@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.021
+# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.029
 
 use Test::More tests => 1;
 
@@ -68,7 +68,7 @@
 );
 
 # Add static prereqs to the included modules list
-my $static_prereqs = do 't/00-report-prereqs.dd';
+my $static_prereqs = do './t/00-report-prereqs.dd';
 
 # Merge all prereqs (either with ::Prereqs or a hashref)
 my $full_prereqs = _merge_prereqs(
@@ -78,12 +78,14 @@
 
 # Add dynamic prereqs to the included modules list (if we can)
 my ($source) = grep { -f } 'MYMETA.json', 'MYMETA.yml';
-if ( $source && $HAS_CPAN_META ) {
-    if ( my $meta = eval { CPAN::Meta->load_file($source) } ) {
-        $full_prereqs = _merge_prereqs($full_prereqs, $meta->prereqs);
-    }
+my $cpan_meta_error;
+if ( $source && $HAS_CPAN_META
+    && (my $meta = eval { CPAN::Meta->load_file($source) } )
+) {
+    $full_prereqs = _merge_prereqs($full_prereqs, $meta->prereqs);
 }
 else {
+    $cpan_meta_error = $@;    # capture error from CPAN::Meta->load_file($source)
     $source = 'static metadata';
 }
 
@@ -107,20 +109,24 @@
         my @reports = qw/Module Want Have/;
 
         for my $mod ( sort keys %{ $req_hash->{$phase}{$type} } ) {
-            next if $mod eq 'perl';
             next if grep { $_ eq $mod } @exclude;
 
-            my $file = $mod;
-            $file =~ s{::}{/}g;
-            $file .= ".pm";
-            my ($prefix) = grep { -e File::Spec->catfile($_, $file) } @INC;
-
             my $want = $req_hash->{$phase}{$type}{$mod};
             $want = "undef" unless defined $want;
             $want = "any" if !$want && $want == 0;
 
+            if ($mod eq 'perl') {
+                push @reports, 'perl', $want, $;
+                next;
+            }
+
             my $req_string = $want eq 'any' ? 'any version required' : "version '$want' required";
 
+            my $file = $mod;
+            $file =~ s{::}{/}g;
+            $file .= ".pm";
+            my ($prefix) = grep { -e File::Spec->catfile($_, $file) } @INC;
+
             if ($prefix) {
                 my $have = MM->parse_version( File::Spec->catfile($prefix, $file) );
                 $have = "undef" unless defined $have;
@@ -169,15 +175,23 @@
     diag "\nVersions for all modules listed in $source (including optional ones):\n\n", @full_reports;
 }
 
+if ( $cpan_meta_error || @dep_errors ) {
+    diag "\n*** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ***\n";
+}
+
+if ( $cpan_meta_error ) {
+    my ($orig_source) = grep { -f } 'MYMETA.json', 'MYMETA.yml';
+    diag "\nCPAN::Meta->load_file('$orig_source') failed with: $cpan_meta_error\n";
+}
+
 if ( @dep_errors ) {
     diag join("\n",
-        "\n*** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ***\n",
-        "The following REQUIRED prerequisites were not satisfied:\n",
+        "\nThe following REQUIRED prerequisites were not satisfied:\n",
         @dep_errors,
         "\n"
     );
 }
 
-pass;
+pass('Reported prereqs');
 
 # vim: ts=4 sts=4 sw=4 et:

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/t/accepts.t -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/t/accepts.t Changed

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/t/from-hash.t -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/t/from-hash.t Changed

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/t/merge.t -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/t/merge.t Changed

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/t/strings.t -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/t/strings.t Changed

@@ -18,6 +18,54 @@
 
 use CPAN::Meta::Requirements;
 
+
+my $base = 'CPAN::Meta::Requirements::Range';
+
+# Test ==
+my $range = $base->with_string_requirement('== 1.3');
+ok($range->accepts('1.3'), 'exact version (==)');
+ok(!$range->accepts('1.2'), 'lower version (==)');
+ok(!$range->accepts('1.4'), 'higher version (==)');
+
+# Test !=
+$range = $base->with_string_requirement('!= 1.3');
+ok(!$range->accepts('1.3'), 'exact version (!=)');
+ok($range->accepts('1.2'), 'lower version (!=)');
+ok($range->accepts('1.4'), 'higher version (!=)');
+
+# Test >=
+$range = $base->with_string_requirement('>= 1.3');
+ok($range->accepts('1.3'), 'exact version (>=)');
+ok(!$range->accepts('1.2'), 'lower version (>=)');
+ok($range->accepts('1.4'), 'higher version (>=)');
+
+# Test <=
+$range = $range = $base->with_string_requirement('<= 1.3');
+ok($range->accepts('1.3'), 'exact version (<=)');
+ok($range->accepts('1.2'), 'lower version (<=)');
+ok(!$range->accepts('1.4'), 'higher version (<=)');
+
+# Test ""
+$range = $base->with_string_requirement('1.3');
+ok($range->accepts('1.3'), 'exact version ("")');
+ok(!$range->accepts('1.2'), 'lower version ("")');
+ok($range->accepts('1.4'), 'higher version ("")');
+
+# Test multiple requirements
+$range = $base->with_string_requirement('>= 1.3, <= 2.0, != 1.6');
+ok($range->accepts('1.5'), 'middle version (>=, <=, !)');
+ok(!$range->accepts('1.2'), 'lower version (>=, <=, !)');
+ok(!$range->accepts('2.1'), 'higher version (>=, <=, !)');
+ok(!$range->accepts('1.6'), 'excluded version (>=, <=, !)');
+
+# Test multiple requirements with implicit minimum
+$range = $base->with_string_requirement('0.90, != 0.91');
+ok(!$range->accepts('0.88'), 'lower version ("", !)');
+ok($range->accepts('0.90'), 'exact version ("", !)');
+ok($range->accepts('0.901'), 'middle version ("", !)');
+ok(!$range->accepts('0.91'), 'excluded version ("", !)');
+ok($range->accepts('0.92'), 'higher version ("", !)');
+
 my $req = CPAN::Meta::Requirements->new;
 
 # Test ==
@@ -45,10 +93,10 @@
 ok(!$req->accepts_module('Foo::Graz' => '1.4'), 'higher version (<=)');
 
 # Test ""
-$req->add_string_requirement('Foo::Blurb', '>= 1.3');
-ok($req->accepts_module('Foo::Blurb' => '1.3'), 'exact version (>=)');
-ok(!$req->accepts_module('Foo::Blurb' => '1.2'), 'lower version (>=)');
-ok($req->accepts_module('Foo::Blurb' => '1.4'), 'higher version (>=)');
+$req->add_string_requirement('Foo::Blurb', '1.3');
+ok($req->accepts_module('Foo::Blurb' => '1.3'), 'exact version ("")');
+ok(!$req->accepts_module('Foo::Blurb' => '1.2'), 'lower version ("")');
+ok($req->accepts_module('Foo::Blurb' => '1.4'), 'higher version ("")');
 
 # Test multiple requirements
 $req->add_string_requirement('A::Tribe::Called', '>= 1.3, <= 2.0, != 1.6');
@@ -57,6 +105,21 @@
 ok(!$req->accepts_module('A::Tribe::Called' => '2.1'), 'higher version (>=, <=, !)');
 ok(!$req->accepts_module('A::Tribe::Called' => '1.6'), 'excluded version (>=, <=, !)');
 
+# Test multiple requirements with implicit minimum
+{
+  my $req = CPAN::Meta::Requirements->new;
+
+  $req->add_string_requirement('Foo::MyModule', '0.90, != 0.91');
+
+  is_deeply(
+    $req->as_string_hash,
+    {
+      'Foo::MyModule' => '>= 0.90, != 0.91'
+    },
+    "multiple requirements with implicit minimum",
+  );
+}
+
 # Test precision
 {
   my $req = CPAN::Meta::Requirements->new;

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/xt/author/00-compile.t -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/xt/author/00-compile.t Changed

@@ -2,14 +2,15 @@
 use strict;
 use warnings;
 
-# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.054
+# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.058
 
 use Test::More;
 
-plan tests => 2;
+plan tests => 3;
 
 my @module_files = (
-    'CPAN/Meta/Requirements.pm'
+    'CPAN/Meta/Requirements.pm',
+    'CPAN/Meta/Requirements/Range.pm'
 );
 
 
@@ -19,7 +20,9 @@
 local $ENV{HOME} = File::Temp::tempdir( CLEANUP => 1 );
 
 
-my $inc_switch = -d 'blib' ? '-Mblib' : '-Ilib';
+my @switches = (
+    -d 'blib' ? '-Mblib' : '-Ilib',
+);
 
 use File::Spec;
 use IPC::Open3;
@@ -33,14 +36,18 @@
     # see L<perlfaq8/How can I capture STDERR from an external command?>
     my $stderr = IO::Handle->new;
 
-    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-e', "require q$lib");
+    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
+            $^X, @switches, '-e', "require q$lib"))
+        if $ENV{PERL_COMPILE_TEST_DEBUG};
+
+    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q$lib");
     binmode $stderr, ':crlf' if $^O eq 'MSWin32';
     my @_warnings = <$stderr>;
     waitpid($pid, 0);
     is($?, 0, "$lib loaded ok");
 
     shift @_warnings if @_warnings and $_warnings0 =~ /^Using .*\bblib/
-        and not eval { require blib; blib->VERSION('1.01') };
+        and not eval { +require blib; blib->VERSION('1.01') };
 
     if (@_warnings)
     {

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/xt/author/critic.t -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/xt/author/critic.t Changed

_service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/xt/author/distmeta.t Added

_service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/xt/author/minimum-version.t Added

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/xt/author/pod-coverage.t -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/xt/author/pod-coverage.t Changed

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/xt/author/pod-spell.t -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/xt/author/pod-spell.t Changed

_service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/xt/author/portability.t Added

_service:tar_scm:CPAN-Meta-Requirements-2.140.tar.gz/xt/author/test-version.t -> _service:tar_scm:CPAN-Meta-Requirements-2.143.tar.gz/xt/author/test-version.t Changed

Changes of Revision 10