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

Return to Cached.pm CVS log

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

Diff for /openbsd/OpenBSDTorrents/lib/BT/MetaInfo/Cached.pm between version 1.4 and 1.5

version 1.4, 2005/05/05 20:34:31

version 1.5, 2005/05/05 21:08:04

Line 1

# $Id$

use strict;

package BT::OBTMetaInfo;

package BT::MetaInfo::Cached;

require 5.6.0;

use vars qw( $VERSION @ISA );

use Digest::SHA1 qw(sha1);

use YAML;

use YAML qw/ DumpFile LoadFile /;

#use Digest::SHA1 qw(sha1);

#use YAML qw/ DumpFile LoadFile /;

use Cache::FileCache;

use File::Basename;

use BT::MetaInfo;

use base 'BT::MetaInfo';

use OpenBSDTorrents;

#use OpenBSDTorrents;

$VERSION = do { my @r = (q$Id$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

Line 20

Line 25

{

my $class = shift;

my $file = shift;

my $cache_settings = shift;

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

$cache_settings->{namespace} ||= 'BT::MetaInfo::Cached';

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

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

$obj->{cache} = $cache;

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

}

sub save {

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

my $basename = basename($file);

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

my %info_hash = %$self; # unbless

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

}

sub _load {

my $file = shift;

my $meta_file = shift;

my $cache = shift;

my $regen = shift;

my $basename = basename($file);

my $info;

my $info = $cache->get( $basename );

if ($meta_file && ! $regen && -e $meta_file) {

$info = LoadFile($meta_file);

}

unless ($info) {

unless (defined $info) {

$info = BT::MetaInfo::_load($file);

DumpFile($meta_file, $info) if $meta_file;

$cache->set( $basename, $info );

}

return $info;

}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>