view release on metacpan or  search on metacpan

t/common.ph  view on Meta::CPAN

# Defines some Perl functions for the *.t scripts
use strict;
use warnings;

sub P() {
	no strict 'refs';
	return ${(caller(1))[0].'::p'};
}

sub bbtest($$;$) {
	my($src,$bbexpect,$htmlexpect);
	if(@_ == 3) {
		($src,$bbexpect,$htmlexpect) = @_;
	} else {
		($src,$htmlexpect) = @_;
		$bbexpect = $src;
	}