Re: (tye)Re3: Functions

[KM]

Yes? So you move the call to main below the block and you still don't need it in a BEGIN. You would squash a normal closure by doing this as well. The BEGIN isn't needed unless you design your script so it is.

#!/usr/bin/perl -w

use strict;
use vars qw($sub);

#exit main(); # Useless use of closure below if called like this
          # BEGIN block would be needed in this case.

{
    my $time = time();
    $sub = sub {time - $time};
}

exit main(); # No problem, no BEGIN needed.
sub main {
    print &$sub;
    sleep 2;
    print &$sub;
    return 0;
}

Cheers,
KM

[tye]

It was one example of a case where the BEGIN is required. With the BEGIN, it works either way. The BEGIN block makes the code more robust. Moving the exit statement down defeats the whole purpose of that line (which is to prevent the maintainer from having to parse all of the lines between the exit and the sub main looking for hidden run-time code. It forces any run-time code to be put up top or into BEGIN blocks making it easy to find).

Sure, it is easy to produce cases where you don't happen to call GlobalRoutine during the window between its definition and the initialization of $sub. That doesn't mean you won't get bit by it.

        - tye (but my friends call me "Tye")

[KM]

This has nothing to do with the original discussion, which I was responding in context to. This has nothing to do with the fact that in the example you gave, I said it didn't need a BEGIN block.. which it doesn't. Then when you start wrapping code around it you start saying that it does. Well, yeah.. when you make it need it, it needs it. Your original example doesn't.

You could put all your initializations in BEGIN and all your function calls in END for all I care.. your first snippet still doesn't need a BEGIN.

Cheers,
KM