Return to Cached.pm CVS log | Up to [local] / openbsd / OpenBSDTorrents / lib / BT / MetaInfo |
version 1.8, 2005/05/05 22:44:03 | version 1.9, 2005/05/06 19:30:25 | ||
---|---|---|---|
|
|
||
my $file = shift; | my $file = shift; | ||
my $cache_settings = shift; | my $cache_settings = shift; | ||
if (ref $file eq 'HASH') { | |||
$cache_settings = $file; | |||
$file = undef; | |||
} | |||
$cache_settings->{namespace} ||= 'BT::MetaInfo::Cached'; | $cache_settings->{namespace} ||= 'BT::MetaInfo::Cached'; | ||
my $cache = new Cache::FileCache( $cache_settings ); | my $cache = new Cache::FileCache( $cache_settings ); |