![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to Cached.pm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / openbsd / OpenBSDTorrents / lib / BT / MetaInfo|
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 ); |