lib/CGI/Carp.pm

1 package CGI::Carp;
5 B<CGI::Carp> - CGI routines for writing to the HTTPD (or other) error log
9     use CGI::Carp;
17     use CGI::Carp qw(cluck);
20     use CGI::Carp qw(fatalsToBrowser);
30     use Carp;
34     use CGI::Carp
58    use CGI::Carp qw(carpout);
66      use CGI::Carp qw(carpout);
74 The real STDERR is not closed -- it is moved to CGI::Carp::SAVEERR.  Some
76 browser when the script closes STDOUT and STDERR.  CGI::Carp::SAVEERR is there to
101 CGI::Carp methods is called to prevent the performance hit.
108     use CGI::Carp qw(fatalsToBrowser);
111 Fatal errors will now be echoed to the browser as well as to the log.  CGI::Carp
128     use CGI::Carp qw(fatalsToBrowser set_message);
135     use CGI::Carp qw(fatalsToBrowser set_message);
156     use CGI::Carp qw(set_die_handler);
193     use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
213 CGI::Carp includes the name of the program that generated the error or
217 name that CGI::Carp will use for all messages.
219 The quick way to do that is to tell CGI::Carp the name of the program
223     use CGI::Carp qw(name=cgi_carp_log_name);
229     use CGI::Carp qw(set_progname);
246 1.29 Patch from Peter Whaite to fix the unfixable problem of CGI::Carp
270 1.13 Added cluck() to make the module orthogonal with Carp.
301 Carp, CGI::Base, CGI::BasePlus, CGI::Request, CGI::MiniSvr, CGI::Form,
303     if (defined($CGI::Carp::PROGNAME))
305       $file = $CGI::Carp::PROGNAME;
312 #use Carp;
314   require Carp;
315   *CORE::GLOBAL::die = \&CGI::Carp::die;
324 $main::SIG{__WARN__}=\&CGI::Carp::warn;
326 $CGI::Carp::VERSION     = '1.30';
327 $CGI::Carp::CUSTOM_MSG  = undef;
328 $CGI::Carp::DIE_HANDLER = undef;
350     $main::SIG{__DIE__} =\&CGI::Carp::die if $routines{'fatalsToBrowser'};
369     if (defined($CGI::Carp::PROGNAME)) {
370         $id = $CGI::Carp::PROGNAME;
382     $CGI::Carp::PROGNAME = shift;
383     return $CGI::Carp::PROGNAME;
415     my $message = Carp::longmess();
461     $CGI::Carp::CUSTOM_MSG = shift;
462     return $CGI::Carp::CUSTOM_MSG;
479     $CGI::Carp::DIE_HANDLER = $handler;
481     return $CGI::Carp::DIE_HANDLER;
484 sub confess { CGI::Carp::die Carp::longmess @_; }
485 sub croak   { CGI::Carp::die Carp::shortmess @_; }
486 sub carp    { CGI::Carp::warn Carp::shortmess @_; }
487 sub cluck   { CGI::Carp::warn Carp::longmess @_; }