package cucu;

use strict;
use Carp ();

sub error {
    Carp::croak @_;
}

1;

##</code><code>##

use strict;
use cucu;

ty();

sub ty {
    cucu::error('blabla');
}