File Coverage

blib/lib/Cache/FastMmap/Tie.pm

Criterion	Covered	Total	%
statement	43	45	95.5
branch	6	10	60.0
condition	2	3	66.6
subroutine	11	13	84.6
pod			n/a
total	62	71	87.3

package Cache::FastMmap::Tie;

use strict;
use v5.8.1;
our $VERSION = '0.03';

use base 'Cache::FastMmap';
use Class::Inspector;
use Best [ [ qw/YAML::XS YAML::Syck YAML/ ], qw/LoadFile/ ];

sub TIEHASH{
	my $class = shift;
	my ($params_hash) = @_;
	my $self;
	if (ref $params_hash eq 'HASH') {
		$params_hash = shift @_;
		if (my $yaml_file = delete $params_hash->{yaml_file}) {
			$params_hash = LoadFile("$yaml_file") or
				die "Can't open `$yaml_file':$@ ",__LINE__;
		}
		$self = $class->new(%{$params_hash}) unless @_;
	}
	$self ||= $class->new(@_);
	$self->{_tie_var} = {};
	return $self;
}

sub STORE { shift->set(@_) } # ( Key => Value )

sub FETCH { shift->get(@_) } # ( Key )

sub DELETE{ shift->remove(@_) } # ( Key )

sub CLEAR { shift->clear }

sub EXISTS { # ( Key )
	my $self = shift;
	$self->purge;
	for ($self->get_keys(0)){
		$_ eq  $_[0] and return 1;
	}
	return ;
}

sub FIRSTKEY {
	my $self = shift;
	$self->purge;
	@{$self->{_tie_var}->{get_keys_0}} = $self->get_keys(0);
	shift @{$self->{_tie_var}->{get_keys_0}};
}

sub NEXTKEY { # ( prevKey )
	my $self = shift;
	shift @{$self->{_tie_var}->{get_keys_0}};
}

#sub DESTROY {}

1;
__END__