Сценарий Perl, применимый как программа и как модуль

У меня есть сценарий Perl (автономная программа), который содержит некоторые нижние индексы, которые я хотел бы снова использовать в других сценариях. Из-за ограничений среды выполнения, я не могу переместить функции в общее .pm файл.

Действительно ли возможно дифференцироваться, был ли скрипт запущен как автономная программа, или это было requireредактор /doредактор другим сценарием?

Единственная вещь, которую я мог найти, состояла в том, чтобы использовать caller на верхнем уровне: автономная программа не имеет никакой вызывающей стороны в то время как когда requireредактор caller шоу, кто действительно загружал модуль. Есть ли какое-либо лучшее решение?

5
задан Dummy00001 3 August 2010 в 10:42
поделиться