package Alter;

sub ego {
    my $obj = shift;
    my $corona = _corona($obj);
    my $class = caller;
    return $corona->{ $class} if exists $corona{$class} );
    $corona{ $class} = shift || {};
}