if (not $P::x) {
    $P::x = 1;
    f();
}