Help for this page

Select Code to Download

Select or download this

require Carp;
$SIG{__WARN__} = sub { Carp::cluck(@_) };

# for use with debugger
$SIG{__WARN__} = sub { $DB::single = 1 };