Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Re: Style & subroutine organization

by demerphq (Chancellor)
on Aug 29, 2001 at 21:41 UTC ( #108819=note: print w/replies, xml ) Need Help??


in reply to Re: Style & subroutine organization
in thread Style & subroutine organization

I usually prefer to keep the scope levels in mind. Because perl doesnt have a defined main block and some of the subtler uses of scope (anonymous blocks for instance) and BEGIN{} END{} blocks I try to keep things organised so its intuitive. For instance
#!perl # GLOBAL DEFINITIONS # TYPEGLOBMANIPULATIONS # BEGIN{} # FUNCTIONS # ANON_BLOCKS # END{} # main() equivelent. __DATA__
Because this kind of thing can get confusing:
my $var; sub foo {$var++; #ie code} my @list; use Some::Class; sub bar{} my %hash; sub sna{} sub fu{} my $scalar; # code # .... __DATA__
Now you might say "what if a lexical variable is used only by one particular funct ie static lexical" well then I usually do something like this
{ #Anonymous block for the following static lexicals: my $static_scalar; my @static_array; sub push_stack { push @static_array,@_} sub pop_stack { pop @stack} } #End anonymous block
So the first would probably end up like this:
use Some::Class; sub sna{} sub fu{} { my $var; sub foo {$var++; #ie code} } { my @list; sub bar{} } my $scalar; my %hash; # code # .... __DATA__
Much easier to figure out whats gone 12 months later i assure you. Yves

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://108819]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (8)
As of 2019-12-06 13:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Strict and warnings: which comes first?



    Results (155 votes). Check out past polls.

    Notices?