Wydanie Perla -d i modulino

Question

Mam kilka skryptów, które rozpocząłem testowanie jednostkowe przy użyciu pomysłu "modulino". Napotkałem problem polegający na tym, że gdy skrypt jest wywoływany z "perl -d", skrypt nie działa jako wywołujący() zwraca wartość true.

Mam główny korpus skryptu zawinięty w main(), a niektóre podprogramy są powoli wyciągane z głównego() do własnych podprogramów.

Na początku skryptu mam:

main(@ARGS) unless caller(); 

Wywołany w .T testów to działa jak chcę, nie działa main(), więc mogę przetestować podprogramów. Kiedy wywołuję skrypt z CLI działa świetne wywoływanie main().

Problem pojawia się, gdy nazywam go z CLI z:

perl -d myscript.pl 

Na tym etapie rozmówcy zwraca poprawną wartość (zamiast undef) i główny nie jest tzw.

Sugestie byłyby bardzo cenne, jeśli chodzi o podejście do tego.

Answer 1

Sytuacja z przełącznikiem -d jest podobna jak przy testowaniu - Twój kod jest wykonywany przez coś innego, w tym przypadku debuggera.

Możesz samemu uruchomić main, wywołując go ręcznie w debugerze lub musisz sprawdzić, czy debugger jest caller. Coś jak:

main(@ARGS) if !caller() || (caller)[0] eq 'DB';