package My::Class::_implement;
use Scalar::Util qw( weaken );

sub My::Class::new {
    # ...
}

sub My::Class::Object::method {
    # ...
    weaken( $someRef );
    # ...
}