view release on metacpan or  search on metacpan

lib/Astro/Coords.pm  view on Meta::CPAN

3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
  my $primary = $self->_cache_key;
  return () unless defined $primary;
 
  my $C = $self->_cache_ref;
 
  return () unless exists $C->{$primary};
  my $local = $C->{$primary};
  return () unless defined $local;
 
  my @answer =  map { $local->{$_} } @keys;
#  print "Caller: ". join(":", caller() ) ."\n";
#  print "Getting cache values for ". join(":",@keys) ."\n";
#  print "Getting cache values for ". join(":",@answer) ."\n";
  return (wantarray() ? @answer : $answer[0] );
}
 
=item B<_calc_cache_key>
 
Internal (to the cache system) function for calculating the cache
key for the current epoch.