Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Re: How many different ways can Perl code fail?

by kyle (Abbot)
on Jan 13, 2009 at 21:30 UTC ( #736089=note: print w/replies, xml ) Need Help??

in reply to How many different ways can Perl code fail?

For testing purposes, I'd say wrap up all the stuff you'd like to do with user-supplied eval code into one sub (or module) and then just test that. Then you don't have to have tests for eight (or more) places in your code that uses it.

As for your list of things to check for, I'd say it's pretty complete except that the value returned from eval doesn't really mean much and the $EVAL_ERROR isn't very reliable.

To see why $EVAL_ERROR is not reliable, see Acme::ExceptionEater.

The value returned from eval doesn't mean much because the user-supplied code can make it whatever it wants. That's because return works inside eval just as if it were in a sub.

my $code_from_user = "return undef;"; my $success = eval "$code_from_user; 1"; # oops, $success looks like failure!

Update: If you want to catch a die that the user called vs. a die from a run-time error (such as division by zero), I think you'd have to override CORE::GLOBAL::die to report when it's called.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://736089]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2018-07-18 06:48 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (383 votes). Check out past polls.