Select Code to Download

#semaphores
my $writelog = Thread::Semaphore->new(); #sequential log writing
...
        $writelog->up();
    }
}

package other;

...
        timeLen => 24.24,
    },
);

package other.pm

...
        $writelog->up();
    }
}

sub debugLogFunctionNameLineNum {
#debugLogFunctionNameLineNum((caller(0))[2],(caller(1))[3], @_);
...
        $writelog->up();
    }
}