Можно ли использовать или требовать сценарий Perl без выполнения его операторов?
Мне нужно добавить модульное тестирование в некоторые старые скрипты, все скрипты в основном в следующей форме:
#!/usr/bin/perl
# Main code
foo();
bar();
# subs
sub foo {
}
sub bar {
}
Если я попытаюсь «потребовать» этот код в модульном тесте, будет запущен основной раздел кода, где я хочу иметь возможность просто протестировать «foo» в изоляции.
Есть ли способ сделать это без перемещения foo, bar в отдельный файл .pm?