*$sub = sub {
    weaken $self if ! isweak $self;
    ...
}