view release on metacpan or  search on metacpan

lib/Test/CVE.pm  view on Meta::CPAN

	}
    @cve;
    } # cve

sub has_no_cves {
    my %attr = @_;
    my $tb = __PACKAGE__->builder;

    # By default skip this test is not in a development env
    if (!exists $attr{author} and
	 ((caller)[1] =~ m{(?:^|/)xt/[^/]+\.t$} or
	  $ENV{AUTHOR_TESTING}                  or
	  -d ".git" && $^X =~ m{/perl$})) {
	$attr{author}++;
	}
    unless ($attr{author}) {
	$tb->ok (1, "CVE tests skipped: no author environment");
	return;
	}

    $attr{perl} //= 0;