view release on metacpan or  search on metacpan

LICENSE  view on Meta::CPAN

apply and the section as a whole is intended to apply in other
circumstances.

It is not the purpose of this section to induce you to infringe any
patents or other property right claims or to contest validity of any
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system, which is
implemented by public license practices.  Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.

This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.

  8. If the distribution and/or use of the Program is restricted in
certain countries either by patents or by copyrighted interfaces, the
original copyright holder who places the Program under this License
may add an explicit geographical distribution limitation excluding

scripts/generate_index.pl  view on Meta::CPAN

		document.querySelectorAll('tr').forEach(row => {
			// Skip header rows
			if (row.querySelector('th')) return;

			// Determine row status
			const isFail = row.classList.contains('cpan-fail');
			const isUnknown = row.classList.contains('cpan-unknown');
			const isNA = row.classList.contains('cpan-na');
			const isNew = !!row.querySelector('.new-failure');

			// Decide whether to show the row
			let show = true;

			if (toggleFail && !toggleFail.checked && isFail) show = false;
			if (toggleUnknown && !toggleUnknown.checked && isUnknown) show = false;
			if (toggleNA && !toggleNA.checked && isNA) show = false;
			if (toggleNew && toggleNew.checked && !isNew) show = false;

			row.style.display = show ? '' : 'none';
		});
	}

t/function.t  view on Meta::CPAN

	# We are running inside App-GHGen which is a Perl project (has cpanfile,
	# Makefile.PL, lib/, t/).  The detector should give a positive score.
	my $score = App::GHGen::Detector::_detect_perl();
	ok($score > 0, "Perl repo scores positively ($score)");
	diag("_detect_perl score: $score") if $ENV{TEST_VERBOSE};
};

subtest 'Detector::_detect_node - scores zero in a Perl-only repo' => sub {
	my $score = App::GHGen::Detector::_detect_node();
	# The App-GHGen repo has no package.json, so the score must be zero (or low).
	# We cannot assert zero because the repo may contain incidental node files,
	# but we can assert it is lower than the Perl score.
	my $perl_score = App::GHGen::Detector::_detect_perl();
	ok($score < $perl_score, 'node score is lower than perl score in a Perl repo');
};

subtest 'Detector::detect_project_type - returns "perl" for this repository' => sub {
	# Running from the App-GHGen directory, which is definitively a Perl project.
	my $type = detect_project_type();
	is($type, 'perl', 'detect_project_type returns "perl" for App-GHGen repo');