{
    package Foo;
    sub foo { bless {}, "Bar" }
}

*Bar:: = \*Foo::;

use Data::Dumper;
print Dumper(Foo->foo);

##</code><code>##

$VAR1 = bless( {}, 'Foo' );

##</code><code>##

*Bar::foo = \*Foo::foo;

##</code><code>##

$VAR1 = bless( {}, 'Bar' );

##</code><code>##

print Dumper(Foo->foo);
print Dumper(Bar->foo);