1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
=head1 NAME
Log::Report::Die - compatibility routines with Perl's die/croak/confess
=head1 INHERITANCE
Log::Report::Die
is a Exporter
=head1 Functions
=over 4
=item B<die_decode>(STRING)
The STRING is the content of C<$@> after an eval() caught a die().
croak(), or confess(). This routine tries to convert this into
parameters for L<Log::Report::report()|Log::Report/"Report Production and Configuration">. This is done in a very
smart way, even trying to find the stringifications of C<$!>.
Return are four elements: the error string which is used to trigger
a C<Log::Report> compatible C<die()>, and the options, reason, and
text message. The options is a HASH which, amongst other things,
may contain a stack trace and location.
Translated components will have exception classes C<perl>, and C<die> or
C<confess>. On the moment, the C<croak> cannot be distiguished from the
C<confess> (when used in package main) or C<die> (otherwise).
The returned reason depends on whether the translation of the current
C<$!> is found in the STRING, and the presence of a stack trace. The
following table is used:
errstr stack => reason
no no ERROR (die) application internal problem
yes no FAULT (die) external problem, think open()
no yes PANIC (confess) implementation error
yes yes ALERT (confess) external problem, caught
= @{$opt{stack}} ? ($opt{errno} ? 'ALERT' : 'PANIC')
: ($opt{errno} ? 'FAULT' : 'ERROR');
=back
=head1 SEE ALSO
This module is part of Log-Report distribution version 0.94,
built on August 23, 2011. Website: F<http://perl.overmeer.net/log-report/>
=head1 LICENSE
Copyrights 2007-2011 by Mark Overmeer. For other contributors see ChangeLog.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
See F<http://www.perl.com/perl/misc/Artistic.html>
|
