version 1.8, 2005/05/05 22:44:03 |
version 1.10, 2005/05/20 19:37:28 |
|
|
my $file = shift; |
my $file = shift; |
my $cache_settings = shift; |
my $cache_settings = shift; |
|
|
$cache_settings->{namespace} ||= 'BT::MetaInfo::Cached'; |
if (ref $file eq 'HASH') { |
|
$cache_settings = $file; |
|
$file = undef; |
|
} |
|
|
|
$cache_settings->{namespace} ||= 'BT::MetaInfo::Cached'; |
|
$cache_settings->{default_expires_in} ||= 7 * 24 * 60 * 60; |
|
$cache_settings->{auto_purge_interval} ||= 1 * 1 * 10 * 60; |
|
|
my $cache = new Cache::FileCache( $cache_settings ); |
my $cache = new Cache::FileCache( $cache_settings ); |
|
|