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

Return to Cached.pm CVS log

Up to [local] / openbsd / OpenBSDTorrents / lib / BT / MetaInfo

version 1.7, 2005/05/05 21:29:13

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;

Line 49

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;

}