Net::DRI::Exception3pm

 my $s=Net::DRI::Exception->new(0,'area',500,'message');
 die($s);
 ## OR
 Net::DRI::Exception->die(0,'area',500,'message');
 $s->is_error(); ## gives 0 or 1, first argument of new/die
 ## (internal error that should not happen are 1, others are 0)
 $s->area(); ## gives back the area (second argument of new/die)
 $s->code(); ## gives back the code (third argument of new/die)
 $s->msg(); ## gives back the message (fourth argument of new/die)
 $s->as_string(); ## gives back a nicely formatted full backtrace