Help for this page

Select Code to Download


  1. or download this
    $h->{RaiseError} = 1; # Turn all warnings into dies
$h->{HandleError} = sub { set_dberror(join('',@_)) };
  2. or download this
    package TrapWarnings;

...
use TrapWarnings;

warn "foo";