my $obj = {};
my $class = "$obj";
bless $obj, $class;

*{"${class}::foo"} = sub { "bar" };

print $obj->foo();