sub _underload {
        my ($self, $sub) = @_;
        my $class = ref $self;
        bless $self, 'Cancel::LanX::So::We::Can::Dereference';
        my $v = $self->$sub;
        sleep 1 if 0 == threads->tid;
        bless $self, $class;
        return $v
    }