#!/usr/bin/perl

sub main::croak {
    print "I croaked";
}

{
    package Test;

    use Carp;

    sub myfunc {
        croak("I am dying");
    }
}

eval {
    Test::myfunc();
};
print $@ if $@;


*myfunc = \&Test::myfunc;

eval {
    myfunc();
};
print $@ if $@;

__OUTPUT__
I am dying at test.pl line 18
I am dying at test.pl line 26