Lines Matching defs:Carp
958 $Carp::CarpLevel,
7235 if (defined &Carp::longmess) {
7241 local $Carp::CarpLevel = 2; # mydie + confess
7244 &warn(Carp::longmess("Signal @_"));
7247 # No Carp. Tell us about the signal as best we can.
7259 The debugger's own default C<$SIG{__WARN__}> handler. We load C<Carp> to
7276 # Load Carp if we can. If $^S is false (current thing being compiled isn't
7278 eval { require Carp }
7282 # Use the core warn() unless Carp loaded OK.
7286 unless defined &Carp::longmess;
7293 # We can call Carp::longmess without its being "debugged" (which we
7295 my $mess = Carp::longmess(@_);
7308 by loading C<Carp> and calling C<Carp::longmess()> to get it. We turn off
7309 single stepping and tracing during the call to C<Carp::longmess> to avoid
7338 eval { require Carp };
7342 unless defined &Carp::longmess;
7345 # inside DB::DB, but not in Carp). Save $single and $trace, turn them off,
7346 # get the stack trace from Carp::longmess (if possible), restore $signal
7354 package Carp; # Do not include us in the list
7355 eval { $mess = Carp::longmess(@_); };
7685 #use Carp; # This did break, left for debugging