view release on metacpan or  search on metacpan

t/lib/TF_TestQuiet.pm  view on Meta::CPAN

package TF_TestQuiet;

use strict;
use warnings;

sub import {
	if( $ENV{HARNESS_ACTIVE} && ! ( $ENV{AUTHOR_TESTING} || $ENV{RELEASE_TESTING} ) ) {
		$ENV{TF_CPP_MIN_LOG_LEVEL} = 3;
	}
}

1;