Re: Error Handling with Packages

Hi Dru,

I had such problems. I tried to avaoid it this way. All my custom packages functions will return me two variable instead of one. For eg:

#Function inside a package

 sub test()
{
...
...
open(FILE,"filename") || return (1,"Error while trying to open the fil
+e filename");

....
return (0,UNDEF);
}

# Main Program
my ($result,$err)=test();
Now based on the return value i decide to print the error or take corr
+ective messures
[download]

There are lot of other ways to do it too. But i found this to be easier for me.

Thanks
SasiKumar

Comment on Re: Error Handling with Packages Download Code

Replies are listed 'Best First'.
Re^2: Error Handling with Packages by salva (Canon) on May 23, 2005 at 19:00 UTC
Returning the error as a second value is usually not a good idea. It requires too much discipline to always check the error status, after every call, and it doesn't allow for idiomatic checks as `foo() or die "foo failed";` [download] so lazy programmers will just don't do it resulting on the worst kind of errors: unnoticed errors! Usually it's much better to croak(): module users would still be able to handle errors via eval if they wish, and when not, the final user will notice that something went wrong because the croak will reach them.	[reply] [d/l]
Re^3: Error Handling with Packages by anjoschu (Sexton) on May 24, 2005 at 08:55 UTC
I have another custom approach: Read more... (1323 Bytes) This way the module user can still use idioms like `$O->foo() or die "could not blabla: ".$O->error();` [download] Users can still set the error handler to croak() if they wish. This could be extended ad nauseam: $debug switches, $exec_handler switch, method to get errMsg without resetting it -- you name it. I should probably put it in its own module, too, and inherit from that. I'm still not sure how to escalate errors when one method calls another. Maybe simply `sub bar { my ($self) = @_; foo() or return raiseError("bar failed to rhubarb: ".$self->error( +)); return 1; } # ... $O->bar() or die "could not blabla: ".$O->error(); # "could not blabla: bar failed to rhubarb: foo: could not do thisandt +hat"` [download]	[reply] [d/l] [select]


P is for Practical
	PerlMonks