Yet Another CPAN Grep

Test-Software-License ( B/BO/BOWTIE/Test-Software-License-0.004000.tar.gz, BOWTIE, 2014; MetaCPAN )

Test-Software-License/lib/Test/Software/License.pm ( view source; MetaCPAN )

_perlscript_ok($options);
	_from_perlmodule_ok($options);
	_from_metayml_ok($options);
	_from_metajson_ok($options);
	_check_for_license_file($options);

	if (not $options->{strict}) {
		$test->ok($pa

om_metajson_ok
#######
sub _from_metajson_ok {
	my $options = shift;
	my $test    = Test::Builder->new;

	if (-e 'META.json') {
		try {
			my $meta_json = Parse::CPAN::Meta->load_file('META.json');

or = $meta_json->{author}[0];
			my @guess_json
				= _hack_guess_license_from_meta(@{$meta_json->{license}});
			my @guess_json_meta_name;
			my @guess_json_url;

			for (0 .. $#guess_json) {
				pus