but the more correct way is to think of run-time and compile-time as a per-block thing.
Quite so, ++ (Per-statement, even, in the case of use.)
print("first");
BEGIN {
delete $INC{'ModX.pm'};
use lib '../';
use ModX;
}
print("last");
gets executed in the following order
use lib '../'; # Before "delete" because of "use"
use ModX; # Before "delete" because of "use"
delete $INC{'ModX.pm'}; # Before "first" because of "BEGIN"
print("first");
print("last");
In detail:
- Compile print("first");.
- Compile BEGIN { ... }.
- Compile delete $INC{'ModX.pm'};.
- Compile use lib '../';.
- Execute use lib '../';.
- Compile use ModX;.
- Execute use ModX;.
- Execute BEGIN { ... }.
- Execute delete $INC{'ModX.pm'};.
- Compile print("last");.
- "Run phase" starts.
- Execute print("first");.
- Execute print("last");.