view release on metacpan or  search on metacpan

t/edge_cases.t  view on Meta::CPAN

	for my $i (1 .. 200) {
		if($i % 2 == 0) {
			$logger->level('error');
		} else {
			$logger->level('debug');
		}
		$logger->debug("msg $i");
	}

	# Only odd iterations have level=debug when debug() is called
	my $m = $logger->messages();
	ok(scalar(@{$m}) > 0,   'some messages logged during level oscillation');
	ok(scalar(@{$m}) < 200, 'some messages filtered during level oscillation');
};

# ============================================================
# 14. DESTROY — edge cases
# ============================================================

subtest 'DESTROY — safe to call on object that never logged' => sub {