caller()?

Допустим, функция f() вызывается не внутри BEGIN, а в «основной секции», но это происходит в файле somecode.pm, который подключается через use somecode в файле script.pl. Тогда относительно script.pl функция f() вызывается внутри BEGIN, а относительно somecode.pm - нет.

package SomePackage;
use strict;
use 5.16.1;

sub f {
  given ( (caller(1))[3] ) {
    print "BEGIN\n" when /::BEGIN$/;
    print "END\n" when /::END$/;
    default { print "NORMAL\n" }
  }
}

package main;
use strict;
BEGIN {
  SomePackage::f()
}

SomePackage::f();

END {
  SomePackage::f()
}

Вывод:

BEGIN NORMAL END

Круто! Спасибо :)

http://search.cpan.org/~shay/perl5.24.2/pod/perlvar.pod#${^GLOBAL_PHASE}

Так ведь жеж BEGIN-блоки каждого pm просто выполняются в порядке появления use'ов в main. А инициализационный код пакета (который не BEGIN) выполняется в общем потоке исполнения кода.

Собственно, если сделать так:

package SomePackage;
use strict;
use 5.16.1;

our $v=f(1);

sub f {
  given ( (caller(1))[3] ) {
    print "BEGIN\n" when /::BEGIN$/;
    print "END\n" when /::END$/;
    default { print "NORMAL\n" }
  }
  if (shift) {
    print "^ HERE\n";
  }
}

1;

- я получаю:

NORMAL
^ HERE

Объявляй BEGIN и END блоки непосредственно в скрипте, а не в подключаемых модулях. Тогда будет точно ясно, что они в любом случае выполнятся вне зависимости от того, что там в модулях.

link fix

http://perldoc.perl.org/perlvar.html#Variables-related-to-the-interpreter-state

Да, спасибка. С рабочего компа как-то ниасилил.