in reply to Carp::Clan
The documentation of that feature is too curt and the code is withstanding my attempts to understand it in a hurry. How does one employ that?
Makeshifts last the longest.
For instance:
#!/usr/bin/perl package Foo; sub foo { Bar::bar() } package Bar; use Carp; our @CARP_NOT = qw(Foo); sub bar { croak "hello" } package main; Foo::foo(); [download]
hello at /tmp/t.pl line 12 [download]