package MyModule;

my %OneTime;

sub f {
    $OneTime{+__FILE__.' '.__LINE__} ||= (print("logging\n"), 1);
    return();
}
1;