Carp::Always (3pm)

  use Carp::Always;

makes every \*(C`warn()\*(C' and \*(C`die()\*(C' complains loudly in the calling package and elsewhere. More often used on the command line:

perl -MCarp::Always script.pl

This module is meant as a debugging aid. It can be used to make a script complain loudly with stack backtraces when warn()ing or die()ing.

Here are how stack backtraces produced by this module looks:

# it works for explicit die's and warn's $ perl -MCarp::Always -e 'sub f { die "arghh" }; sub g { f }; g' arghh at -e line 1 main::f() called at -e line 1 main::g() called at -e line 1

# it works for interpreter-thrown failures $ perl -MCarp::Always -w -e 'sub f { $a = shift; @a = @$a };' \ -e 'sub g { f(undef) }; g' Use of uninitialized value in array dereference at -e line 1 main::f('undef') called at -e line 2 main::g() called at -e line 2

In the implementation, the \*(C`Carp\*(C' module does the heavy work, through \*(C`longmess()\*(C'. The actual implementation sets the signal hooks $SIG{_\|_WARN_\|_} and $SIG{_\|_DIE_\|_} to emit the stack backtraces.

Oh, by the way, \*(C`carp\*(C' and \*(C`croak\*(C' when requiring/using the \*(C`Carp\*(C' module are also made verbose, behaving like \*(C`cluck\*(C' and \*(C`confess\*(C', respectively.

\s-1EXPORT\s0

Nothing at all is exported.

This module was born as a reaction to a release of Acme::JavaTrace by Se\*'bastien Aperghis-Tramoni. Se\*'bastien also has a newer module called Devel::SimpleTrace with the same code and fewer flame comments on docs. The pruning of the uselessly long docs of this module were prodded by Michael Schwern.

Schwern and others told me \*(L"the module name stinked\*(R" - it was called \*(C`Carp::Indeed\*(C'. After thinking long and not getting nowhere, I went with nuffin's suggestion and now it is called \*(C`Carp::Always\*(C'. \*(C`Carp::Indeed\*(C' which is now deprecate lives in its own distribution (which won't go anywhere but will stay there as a redirection to this module).

• Carp

• Acme::JavaTrace and Devel::SimpleTrace

• Carp::Always::Color

• Carp::Source::Always

Please report bugs via \s-1CPAN\s0 \s-1RT\s0 http://rt.cpan.org/NoAuth/Bugs.html?Dist=Carp-Always.

Every (un)deserving module has its own pet bugs.

• This module does not play well with other modules which fusses around with \*(C`warn\*(C', \*(C`die\*(C', $SIG{'_\|_WARN_\|_'}, $SIG{'_\|_DIE_\|_'}.

• Test scripts are good. I should write more of these.

• I don't know if this module name is still a bug as it was at the time of \*(C`Carp::Indeed\*(C'.

Adriano Ferreira, <[email protected]>

Copyright (C) 2005-2012 by Adriano R. Ferreira

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.