# my $False = 0;  # old way
my $False = Object::EveryMethod->new();

sub methoda
	{
	my $self = shift;
	#...
	
	if( ... everything worked ) { $self }
	else                        { $False }
	
	}