http://qs1969.pair.com?node_id=459610


in reply to 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

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]

      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]

In Section Seekers of Perl Wisdom