use strict;
use warnings;
 
package A;
 
INIT {
    foreach (keys %::) {
        my ($module) = /^(.+)::$/ or next;
        eval { $module->isa(__PACKAGE__) } or next;
        no strict 'refs';
        no warnings 'redefine';
        ${"$module\::"}{foo} = \&foo;
    }
}
 
sub foo { 'A' }
sub bar { 'A' }
 
package B;
use base 'A';
 
sub foo { 'B' }
sub bar { 'B' }
 
package main;
 
warn B->foo; # A
warn B->bar; # B
 
1;