У вас есть простой script p.pl:
use strict;
use warnings;
our $x;
BEGIN {
$x = 42;
}
print "$x\n";
Когда я запускаю его как:
perl -d:Trace p.pl
печатает:
>> p.pl:3: our $x;
>> p.pl:7: print "$x\n";
42
как печатать также инструкции BEGIN block, например. $x = 42;
?
Поскольку мое намерение не ясно, добавив пояснение:
Ищете ЛЮБОЙ способ распечатывать утверждения при запуске perl script (например, Devel:: Trace), но включая инструкции в блоке BEGIN.