Re^2: Functional Programming & method rewriting

Hmm, I did go the long way to do it, didn't I? :)
Thanks for the idea.

sub foo {
   print "hi mom\n";
   my $ptr = \&foo;
   *foo=sub {
       print "that was unneccessary:";
       $ptr->();
   };
}

foo();
foo();
[download]

Hmm, more Perl voodoo. I like it.

Comment on Re^2: Functional Programming & method rewriting Download Code

Replies are listed 'Best First'.
Re^3: Functional Programming & method rewriting by Sandy (Curate) on Oct 29, 2004 at 21:55 UTC
Using your subroutine, try running `foo(); foo(); foo(); foo();` [download] or for the really dangerous, `foo() for (1..1000);` [download]	[reply] [d/l] [select]


Perl Monk, Perl Meditation
	PerlMonks