view release on metacpan or  search on metacpan

script/release  view on Meta::CPAN

	my $old_perl = $release->get_perl;

	my @perls = $release->perls;
	my ($n, $N) = (1, scalar @perls);
	PERL: foreach my $perl ( @perls ) {
		$release->_print("============ Testing with $perl (", $n++, "/$N)\n");
		$release->set_perl( $perl ) or next;

		$release->clean;

		foreach my $mod ( grep m/\S/ => split m/\s*,\s*/ => $required ) {
			system "$perl -M$mod -e1 >/dev/null 2>&1";
			if( $? ) {
				warn "Prereq $mod not available\n";
				next PERL;
				}
			}

		$release->build_makefile;
		$release->make;
		$release->test;

script/release-test  view on Meta::CPAN

$ENV{AUTOMATED_TESTING} = 1;

my $test_jobs = $opts{j} // $release->config->test_jobs;
if (defined $test_jobs) {
    $test_jobs ||= eval {
	require System::Info;
	System::Info->new->get_core_count;
	} || 9;
    $ENV{HARNESS_OPTIONS} = join ":" => grep { length }
	(split m/:/ => ($ENV{HARNESS_OPTIONS} // "")),
	"j$test_jobs";
    $release->_debug ("Will use HARNESS_OPTIONS '$ENV{HARNESS_OPTIONS}' during tests\n");
    }

unless ($opt_r) {
    $release->_print ("============ Checking source repository\n");
    $release->check_vcs;
    }

# Test with a bunch of perls
my $old_perl = $release->get_perl;
my @perls    = $release->perls;
my ($n, $N)  = (1, scalar @perls);
PERL: foreach my $perl (@perls) {
    $release->_print ("============ Testing with $perl (", $n++, "/$N)\n");
    $release->set_perl ($perl) or next;

    $release->clean;

    foreach my $mod (grep m/\S/ => split m/\s*,\s*/ => $required) {
	$mod =~ m/^\w+(::\w+)*$/ or next;
	system "$perl -M$mod -e1 >/dev/null 2>&1";
	if ($?) {
	    warn "Prereq $mod not available\n";
	    next PERL;
	    }
	}

    $release->build_makefile;
    $release->make;