File Coverage

blib/lib/Tie/Hash/Sorted/XS.pm

Criterion	Covered	Total	%
statement	24	31	77.4
branch			n/a
condition	2	3	66.6
subroutine	9	12	75.0
pod			n/a
total	35	46	76.0

package Tie::Hash::Sorted::XS;

use 5.014000;
use strict;
use warnings;

use Tree::SizeBalanced;

our $VERSION = '0.000_001';

sub TIEHASH {
	my ($class, $tree) = @_;
	$tree //= Tree::SizeBalanced::str_any->new;
	bless \$tree, $class
}

sub FETCH {
	my ($self, $key) = @_;
	my ($k, $v) = $$self->find($key);
	$v
}

sub STORE {
	my ($self, $key, $value) = @_;
	$$self->delete($key);
	$$self->insert($key, $value);
}

sub DELETE {
	my ($self, $key) = @_;
	$$self->delete($key);
}

# sub CLEAR unimplemented

sub EXISTS {
	my ($self, $key) = @_;
	my @list = $$self->find($key);
	@list > 0;
}

sub FIRSTKEY {
	my ($self) = @_;
	$$self->find_min
}

sub NEXTKEY {
	my ($self, $lastkey) = @_;
	$$self->find_gt($lastkey);
}

sub SCALAR {
	my ($self) = @_;
	$$self->size
}

1;
__END__