my $self = {
        object=>$object_ref,
    } unless ref $class;