{
    package A;
    sub foo { }
}

{
    package B;
    use base qw(A);
}

warn B->can("foo");