BEGIN {
    my $croak;
    sub _croak
    {
        if(  ! $croak  ) {
            if(  eval { require Carp; 1 }  ) {
                $croak= \&Carp::croak;
            } else {
                $croak= sub {
                    die @_;
                };
            }
        }
        return $croak;
    }
}