in reply to Re: Functional Programming & method rewriting
in thread 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.

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]

In Section Meditations