view release on metacpan or  search on metacpan

extras/Perl/KnownToFail/src/main/perl/Org/Cpan/Knth/TestMoreKTF.pm_x  view on Meta::CPAN

}

# INTERNAL
#

sub __dispatch
{
	my $method = shift;
	
	my $addLvl = 1;
	while ((caller($addLvl))[0] eq __PACKAGE__)
	{
		$addLvl++;
	}
	$addLvl++;
	
	my $currentLvl = Test::More->builder()->level();
	Test::More->builder()->level($currentLvl + $addLvl);

	my $result = $method->(@_);
		

extras/Perl/KnownToFail/src/main/perl/Org/Cpan/Knth/TestMoreKTF.pm_x  view on Meta::CPAN

	return $result;
}

sub __dispatchTest
{
	my $method = shift;
	my $msg = shift || '<no test msg given>';
	
	my $addLvl = 1;
	while ((caller($addLvl))[0] eq __PACKAGE__)
	{
		$addLvl++;
	}
	$addLvl++;
	
	my $currentLvl = Test::More->builder()->level();
	Test::More->builder()->level($currentLvl + $addLvl);

	my $nextTestNum = Test::More->builder()->current_test() + 1;
	my $failMsg = $knownFails{$nextTestNum};