Re:{3} Strict, strings and subroutines

Great.

A pity you don't cache the possibility that it doesn't exist:

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

Jeroen

Update: merlyn is right. Fixed that.

Comment on Re:{3} Strict, strings and subroutines Download Code

Replies are listed 'Best First'.
Re: Re:{3} Strict, strings and subroutines by merlyn (Sage) on Oct 10, 2001 at 19:45 UTC
`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	[reply] [d/l]


Problems? Is your data what you think it is?
	PerlMonks