#!/usr/bin/perl -l
*Bar:: = \*Foo::;
print ref bless{}, "Bar";
__END__
Foo

##</code><code>##

#!/usr/bin/perl -l

sub Foo::j { print "F ",ref shift }
sub Bar::j { print "B ",ref shift }

$a = bless {}, "Bar";
*Bar:: = \*Foo::;
$b = bless {}, "Bar";

print "\$a is type ",ref $a;
print "\$b is type ",ref $b;

$a->j;

Bar::j($a);

*{"Bar::j"}{CODE}->($a);

$b->j;

__END__
$a is type Bar
$b is type Foo
B Bar
B Bar
F Bar
F Foo