subroutines may be located anywhere in the main program

[Dan Jacobson]

Perlsub says subroutines may be located anywhere in the main program;
and indeed,
$ perl -e 'if(0){sub x{print "wow"}};x;'
wow

Anything non ideal here?

[Tassilo v. Parseval]

Also sprach Dan Jacobson:

> Perlsub says subroutines may be located anywhere in the main program;
> and indeed,
> $ perl -e 'if(0){sub x{print "wow"}};x;'
> wow
>
> Anything non ideal here?

Readability perhaps. At least I'd be confused to see a subroutine
declared in an if-branch.

Other than that, there is not much wrong with it as long as you don't
expect to impose a certain scope or visibility on your subroutines.
They'll always be globally accessible (within the same package) and Perl
doesn't know about inner functions or so.

Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus}) !JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexi ixesixeseg;y~\n~~dddd;eval