The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package t::Pack::A;

use strict;
use warnings;

use t::Pack::Carp;

sub a {
    &t::Pack::B::b;
}

sub b {
    croak "Break!";
}

1;