SPUG: Tracing back to a calling sub

Peter Darley pdarley at kinesis-cem.com
Mon Jan 24 08:34:46 PST 2005


Folks,
	I'm trying to figure out if there's a way for a sub to find out what sub
called it?  The situation that I'm in is that I have a lot of generic subs,
such as one that takes a database query string and returns a hash of what
was loaded from the database.  When it fails, I just get an error from the
sub, but it's almost always a error in how I called the sub that caused
problems, and it can be hard to go back through my program and find which
sub called this sub incorrectly.
	So, basically what I want to be able to do is have something like:

sub MySub
{
	my (%Args) = @_;
	# Args: Query = The query to run the Lookup on

	if (! $Args{Query}) {die "A null querry was passed to MySub from
$Calling_Sub!"}

	...
}

	And it would come up with something like
	"A null querry was passed to MySub from LookupUserInfo()!"

Thanks,
Peter Darley



More information about the spug-list mailing list