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

*Bar:: = \*Foo::;

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