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;
[download]