#!/usr/bin/perl

package Foo;
sub foo { Bar::bar() }

package Bar;
use Carp;
our @CARP_NOT = qw(Foo);
sub bar { croak "hello" }

package main;
Foo::foo();

##</code><code>##

hello at /tmp/t.pl line 12