Return to Cached.pm CVS log | Up to [local] / openbsd / OpenBSDTorrents / lib / BT / MetaInfo |
version 1.6, 2005/05/05 21:10:50 | version 1.7, 2005/05/05 21:29:13 | ||
---|---|---|---|
|
|
||
return $info; | return $info; | ||
} | } | ||
sub _load { | |||
my $file = shift; | |||
my $cache = shift; | |||
my $basename = basename($file); | |||
my $info = $cache->get( $basename ); | |||
unless (defined $info) { | |||
$info = BT::MetaInfo::_load($file); | |||
$cache->set( $basename, $info ); | |||
} | |||
return $info; | |||
} | |||
sub save | sub save | ||
{ | { |