version 1.12, 2006/05/15 19:47:04 |
version 1.14, 2010/03/10 21:00:36 |
|
|
# $RedRiver: Cached.pm,v 1.11 2005/05/21 00:05:13 andrew Exp $ |
# $RedRiver: Cached.pm,v 1.13 2009/12/16 20:11:13 andrew Exp $ |
use strict; |
use strict; |
|
|
package BT::MetaInfo::Cached; |
package BT::MetaInfo::Cached; |
|
|
require 5.6.0; |
require 5.0060; |
use vars qw( $VERSION @ISA ); |
use vars qw( $VERSION @ISA ); |
|
|
use Cache::FileCache; |
use Cache::FileCache; |
|
|
|
|
use BT::MetaInfo; |
use BT::MetaInfo; |
use base 'BT::MetaInfo'; |
use base 'BT::MetaInfo'; |
|
|
|
use Convert::Bencode_XS; |
|
*{bencode} = \&Convert::Bencode_XS::bencode; |
|
*{bdecode} = \&Convert::Bencode_XS::bdecode; |
|
|
$VERSION = do { my @r = (q$Id$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; |
$VERSION = do { my @r = (q$Id$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; |
|
|