openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm - diff

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.8, 2005/05/05 22:44:03

Line 24

my $cache = new Cache::FileCache( $cache_settings );

my $obj = (defined($file)) ? _load($file, $cache) : {};

bless($obj, $class);

$obj->{cache} = $cache;

return(bless($obj, $class));

return $obj;

}

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 _load {

Line 64

Line 51

sub save

{

my ($self, $file) = @_;

my $self = shift;

my $file = shift;

my $basename = basename($file);

$self->SUPER::save($file, @_);

my $cache = delete $self->{cache};

my %info_hash = %$self; # unbless

if ( $self->SUPER::save($file, @_) ) {

$self->cache->set->($basename, \%info_hash)

my %info_hash = %$self; # unbless

$cache->set($basename, \%info_hash)

}

$self->{cache} = $cache;

}