view release on metacpan or  search on metacpan

lib/Language/Farnsworth/Error.pm  view on Meta::CPAN

	return 1 if ($self->{type} == RETURN);
	return 0;
}

sub getmsg
{
	$_[0]->{msg};
}

#wraps code and catches die() and wraps the error in our class
sub perlwrap(&;$)
{
#	print "INPERLWRAP\n";
	my $code=shift;
	my $default=shift;
	$default=EPERL unless defined $default;
	
#	print "WANTARRAY: ", wantarray(), "\n";
	#preserve the context, makes things easier
	if (wantarray) #array context
	{