Help for this page

Select Code to Download

Select or download this

sub umm()    { print "---\n"}
sub _caller(){(caller(1))[3]=~/^(?:main::)?(.*)$/}
...
if_blah(),if_blah(),if_blah(),umm,
not_if_blah(),not_if_blah(),not_if_blah(),umm;
__END__

Select or download this

# No assignment        #With assignment 
for_blah        0      for_blah        0
...
not_if_blah     1      not_if_blah     1
not_if_blah     2      not_if_blah     2
---                    ---