my $class = 'MyClass';
*CORE::GLOBAL::wantarray = sub {
	return CORE::wantarray(@_) if(!${"$class\::PRETEND_CONTEXT"});
	return 1 if(${"$class\::PRETEND_CONTEXT"} == 3);
	return 0 if(${"$class\::PRETEND_CONTEXT"} == 2);
	return undef if(${"$class\::PRETEND_CONTEXT"} == 1);
};