File Coverage

blib/lib/Cache/BerkeleyDB.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package Cache::BerkeleyDB;

our $VERSION = '0.03';

use strict;
use vars qw( @ISA );
use Cache::BaseCache;
use Cache::Cache;
use Cache::CacheUtils qw ( Assert_Defined Static_Params );
use Cache::BerkeleyDB_Backend;

@ISA = qw ( Cache::BaseCache );

my $DEFAULT_CACHE_ROOT   = "/tmp";
my $DEFAULT_NAMESPACE    = 'Default';
my $DEFAULT_UMASK        = 0002;

sub Clear {
	my ($self,$cache_root) = _chkparm(@_);
	foreach my $ns ($self->_get_backend->get_namespaces) {
		_get_cache( $ns, $cache_root )->clear;
	}
}

sub Purge {
	my ($self,$cache_root) = _chkparm(@_);
	foreach my $ns ($self->_get_backend->get_namespaces) {
		_get_cache( $ns, $cache_root )->purge;
	}
}

sub Size {
	my ($self,$cache_root) = _chkparm(@_);
	my $size;
	foreach my $ns ($self->_get_backend->get_namespaces) {
		$size += _get_cache( $ns, $cache_root )->size;
	}
	return $size;
}

# For methods callable as either instance or class methods.
# This applies to Clear, Purge and Size.
sub _chkparm {
	my ($self,$cache_root) = @_;
	unless (ref $self) {
		$cache_root = $self;
		$self = new Cache::BerkeleyDB;
	}
	$cache_root ||= $self->{cache_root} || $DEFAULT_CACHE_ROOT;
	return ($self,$cache_root);
}

sub new {
	my ($class, $opt) = @_;
	$opt ||= {};
	$opt->{cache_root} ||= $DEFAULT_CACHE_ROOT;
	$opt->{namespace} ||= $DEFAULT_NAMESPACE;
	$opt->{umask} ||= $DEFAULT_UMASK;
	$class = ref $class if ref $class;
	my $self = $class->SUPER::_new( $opt );
	my $normal_umask = umask($opt->{umask});
	mkdir $opt->{cache_root}, 0777 unless -d $opt->{cache_root};
	$self->_set_backend(
						Cache::BerkeleyDB_Backend->new
						  ( $opt->{cache_root}, $opt->{namespace} )
					   );
	umask($normal_umask);
	$self->_complete_initialization;
	return $self;
}

sub _get_cache {
	my ($namespace, $cache_root) = Static_Params(@_);
	Assert_Defined($namespace);
	$cache_root ||= $DEFAULT_CACHE_ROOT;
	return Cache::BerkeleyDB->new({ namespace => $namespace,
									cache_root=> $cache_root });
}

sub get_cache_root {
	my $self = shift;
	return $self->_get_backend->get_root;
}

sub set_cache_root {
	my ($self,$cache_root) = @_;
	mkdir $cache_root, 0777 unless -d $cache_root;
	return $self->_get_backend->set_root($cache_root);
}

sub size {
	my $self = shift;
	my $back = $self->_get_backend;
	my @keys = $back->get_keys;
	return 0 unless @keys;
	my $size;
	$size += $back->get_size($back->{_namespace},$_) for @keys;
	return $size;
}


1;


__END__