Re^3: Is modifying the symbol table to redefine subroutines evil?

in reply to Re^2: Is modifying the symbol table to redefine subroutines evil?
in thread Is modifying the symbol table to redefine subroutines evil?

Here it is without globals:

{
  my $foo_has_been_called;
  
  sub foo {
    if (not $foo_has_been_called) {
      call_me_only_once();
      $foo_has_been_called = 1;
    }
  }
}
[download]

Comment on Re^3: Is modifying the symbol table to redefine subroutines evil? Download Code

Replies are listed 'Best First'.
Re^4: Is modifying the symbol table to redefine subroutines evil? by dewey (Pilgrim) on Apr 12, 2007 at 02:06 UTC
With chromatic's edit (Re^2: Is modifying the symbol table to redefine subroutines evil?) this version is my favorite. Clear, hides data, and doesn't suppress any warnings. ~dewey	[reply]

In Section Seekers of Perl Wisdom