blob: 49ebf4aa61973874188ea8cab663503d8e27c01c (
plain)
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
|
Carp::Clan - Report errors from perspective of caller of a "clan"
of modules.
This module is based on "Carp.pm" from Perl 5.005_03. It has been
modified to skip all package names matching the pattern given in the
"use" statement inside the "qw()" term (or argument list).
Suppose you have a family of modules or classes named "Pack::A",
"Pack::B" and so on, and each of them uses "Carp::Clan qw(^Pack::);"
(or at least the one in which the error or warning gets raised).
Thus when for example your script "tool.pl" calls module "Pack::A",
and module "Pack::A" calls module "Pack::B", an exception raised in
module "Pack::B" will appear to have originated in "tool.pl" where
"Pack::A" was called, and not in "Pack::A" where "Pack::B" was called,
as the unmodified "Carp.pm" would try to make you believe :-).
This works similarly if "Pack::B" calls "Pack::C" where the exception
is raised, etcetera.
In other words, this blames all errors in the "Pack::*" modules on the
user of these modules, i.e., on you. ;-)
For more informations, see:
https://metacpan.org/pod/distribution/Carp-Clan/lib/Carp/Clan.pod
|
