472: sub getNodeById
 473: {
 ...
 488:     # See if we have this node cached already
 489:     $cachedNode = $this->{cache}->getCachedNodeById($N);
 490:     return $cachedNode unless ($selectop eq 'force' or not $cachedNode);

##</code><code>##

095:         $db->{cache} = new Everything::NodeCache($this, 300); 

##</code><code>##

 968: sub evalCode {    
 969:     my( $code )= shift @_;
 970:     my( $CURRENTNODE )= shift @_;
 971:     # Note! @_ is left set to remaining arguments!
 
 ...

 985:     my $str = eval $code;       

 ...

##</code><code>##

my $sub = $evalcode_cache{$str} //= eval " sub { $str }"; 
my $str = $sub->(@_);