Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: mod_perl and imports

by Marshall (Abbot)
on Sep 27, 2013 at 04:43 UTC ( #1055927=note: print w/replies, xml ) Need Help??

in reply to mod_perl and imports

A BEGIN{} block will run right after the module is compiled.
It will not run again.

Replies are listed 'Best First'.
Re^2: mod_perl and imports
by Eily (Prior) on Sep 27, 2013 at 11:44 UTC

    It will actually be run straightaway, as soon as the block is reached by the compiler. So whatever lines are below the BEGIN { } won't have even been seen at the time of its execution.


      A BEGIN code block is executed as soon as possible, that is, the moment it is completely defined, even before the rest of the containing file (or string) is parsed. You may have multiple BEGIN blocks within a file (or eval'ed string); they will execute in order of definition. Because a BEGIN code block executes immediately, it can pull in definitions of subroutines and such from other files in time to be visible to the rest of the compile and run time. Once a BEGIN has run, it is immediately undefined and any code it used is returned to Perl's memory pool.
      So, yes, a BEGIN block will run when it is encountered. But it will only run once - that part of my statement is correct. But it does appear that you can intersperse BEGIN blocks within the code and they will run essentially as the code "compiles". that is cool Perl thing.

      When I have used BEGIN{}, I have never interspersed these within the code, but rather have put these at the "end" of the code. In other words, this is initialization code that should be executed before the main code - not interspersed.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1055927]
[hippo]: Are you any good at perl?

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (7)
As of 2018-06-23 09:12 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (125 votes). Check out past polls.