package PkgA;
BEGIN { our @ISA = qw( ... ); }
my $overrides_foo;
BEGIN { $overrides_foo = __PACKAGE__->can('foo'); }
sub foo { 'Whee!' }
sub check { return $overrides_foo; }