Run in eval and out of eval

[wrc]

How can a perl object know when it is running in an eval compared to running outside an eval? So an object which is running something that generates a huge log. When the exception is thrown. it send a message and the catch will dump the log. eval{ $obj->run() };if ($@) { $obj->dump(); } And this is the way to run the object. But some people won't read the doc and simply run: $obj->run(); and expect the script to die with a log dump if it fails. Other than a $obj->set_verbose(); is there a way to determine if the object is running under an eval?

[eyepopslikeamosquito]

I'm not convinced checking whether you are in an eval block or not is the best way to solve your problem. Normally you throw an exception when the library code does not know the best way to continue ("Abort, Retry, Ignore?" ... "Dump Object"? :). If you are certain you always want an object dump when you hit an exceptional condition, why not just code it that way inside your object?

As for determining whether you are in an eval, see Determining depth of eval nesting.

[JavaFan]

$ perl -wE 'say $^S; eval {say $^S}'
0
1
$

Grepping for eval in man perlvar would have gotten you the answer.

[cdybedahl]

caller() looks different in eval().

[wrc]

Thank You for the replies. I have to agree with the first comment in that this is wrong to do. The person who this is for was being very difficult and what he was asking for was just not right. He is not going to get it. Thanks.