Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Re:{3} Strict, strings and subroutines

by merlyn (Sage)
on Oct 10, 2001 at 19:45 UTC ( [id://118021]=note: print w/replies, xml ) Need Help??


in reply to Re:{3} Strict, strings and subroutines
in thread Strict, strings and subroutines

BEGIN { 
    my %cache; 
    sub do_it { 
      my $func = shift; 
      $cache{$func} = do {  
          local @ISA; __PACKAGE__->can("do_$fun")  
        } 
        unless defined $cache{$func}; 
      $cache{$func}->(@_); 
    } 
  }

[download]
This does precisely what mine does. Did you mean "exists" there instead of "defined"?

-- Randal L. Schwartz, Perl hacker

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://118021]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others cooling their heels in the Monastery: (6)
As of 2024-04-16 09:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found