package MyModule;
use strict;
use warnings;

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