package Carpy;
use strict;
use warnings;
use Carp ();
sub import {
my $caller = caller;
no strict 'refs';
*{$caller . "::warn1"} = \&{"Carp::carp"};
*{$caller . "::warnfull"} = \&{"Carp::cluck"};
*{$caller . "::die1"} = \&{"Carp::croak"};
*{$caller . "::diefull"} = \&{"Carp::confess"};
}
1;
| [reply] [d/l] |
So write a module that provides those aliases | [reply] |
... or submit a patch to the maintainer, maybe he accepts it.
| [reply] |
You know what, metaperl? I think you rock, and I am so glad you're here.
I'm glad you've stuck around all these years.
You've taken a lot of crap, from time to time, and you always just let it
roll off your back, with utmost grace. You are an exemplary monk.
Carry on. :-)
I reckon we are the only monastery ever to have a dungeon stuffed with 16,000 zombies .
| [reply] |
Or, consider using Carp::Always. Now all your die()'s and warn()'s produce backtraces. The Carp concept is kinda silly anyway, methinks. | [reply] |
Could you elaborate about the silliness part?
| [reply] |
Stop carping, willya? Or would we say that you are clucking? ;-) | [reply] |