File Coverage

blib/lib/UnQLite.pm

Criterion	Covered	Total	%
statement	89	126	70.6
branch	29	72	40.2
condition	5	9	55.5
subroutine	27	28	96.4
pod	3	3	100.0
total	153	238	64.2

package UnQLite;
use 5.008005;
use strict;
use warnings;
use Carp ();

our $VERSION = "0.04";
our $rc = 0;

use XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);

sub TIEHASH {
    my $class = shift;
    my $self = $class->open(@_) or Carp::croak $class->errstr;
    $self->cursor_init;
}

sub rc {
    my $self = shift;
    my $_rc = _rc($self);
    defined $_rc ? $rc = $_rc : $rc;
}

sub errstr {
    my $self = shift;
    my $rc = $self->rc;
    if ($rc==UnQLite::UNQLITE_OK()) { return "UNQLITE_OK" }
    if ($rc==UNQLITE_NOMEM()) { return "UNQLITE_NOMEM" }
    if ($rc==UNQLITE_ABORT()) { return "UNQLITE_ABORT" }
    if ($rc==UNQLITE_IOERR()) { return "UNQLITE_IOERR" }
    if ($rc==UNQLITE_CORRUPT()) { return "UNQLITE_CORRUPT" }
    if ($rc==UNQLITE_LOCKED()) { return "UNQLITE_LOCKED" }
    if ($rc==UNQLITE_BUSY()) { return "UNQLITE_BUSY" }
    if ($rc==UNQLITE_DONE()) { return "UNQLITE_DONE" }
    if ($rc==UNQLITE_PERM()) { return "UNQLITE_PERM" }
    if ($rc==UNQLITE_NOTIMPLEMENTED()) { return "UNQLITE_NOTIMPLEMENTED" }
    if ($rc==UNQLITE_NOTFOUND()) { return "UNQLITE_NOTFOUND" }
    if ($rc==UNQLITE_NOOP()) { return "UNQLITE_NOOP" }
    if ($rc==UNQLITE_INVALID()) { return "UNQLITE_INVALID" }
    if ($rc==UNQLITE_EOF()) { return "UNQLITE_EOF" }
    if ($rc==UNQLITE_UNKNOWN()) { return "UNQLITE_UNKNOWN" }
    if ($rc==UNQLITE_LIMIT()) { return "UNQLITE_LIMIT" }
    if ($rc==UNQLITE_EXISTS()) { return "UNQLITE_EXISTS" }
    if ($rc==UNQLITE_EMPTY()) { return "UNQLITE_EMPTY" }
    if ($rc==UNQLITE_COMPILE_ERR()) { return "UNQLITE_COMPILE_ERR" }
    if ($rc==UNQLITE_VM_ERR()) { return "UNQLITE_VM_ERR" }
    if ($rc==UNQLITE_FULL()) { return "UNQLITE_FULL" }
    if ($rc==UNQLITE_CANTOPEN()) { return "UNQLITE_CANTOPEN" }
    if ($rc==UNQLITE_READ_ONLY()) { return "UNQLITE_READ_ONLY" }
    if ($rc==UNQLITE_LOCKERR()) { return "UNQLITE_LOCKERR" }
}

sub cursor_init {
    my $self = shift;
    bless [$self->_cursor_init(), $self], 'UnQLite::Cursor';
}

package UnQLite::Cursor;

sub rc {
    my $self = shift;
    my $_rc = _rc($self->[0]);
    defined $_rc ? $UnQLite::rc = $_rc : $UnQLite::rc;
}

sub first_entry {
    my $self = shift;
    _first_entry($self->[0]);
}

sub key {
    my $self = shift;
    _key($self->[0]);
}

sub data {
    my $self = shift;
    _data   ($self->[0]);
}

sub next_entry {
    my $self = shift;
    _next_entry($self->[0]);
}

sub valid_entry {
    my $self = shift;
    _valid_entry($self->[0]);
}

sub seek {
    my $self = shift;
    _seek($self->[0], @_);
}

sub delete_entry {
    my $self = shift;
    _delete_entry($self->[0]);
}

sub prev_entry {
    my $self = shift;
    _prev_entry($self->[0]);
}

sub last_entry {
    my $self = shift;
    _last_entry($self->[0]);
}

sub DESTROY {
    my $self = shift;
    _release($self->[0], $self->[1]);
}

# tie interface

sub FETCH {
    my ($self, $key) = @_;
    $self->[1]->kv_fetch($key);
}

sub STORE {
    my ($self, $key, $value) = @_;
    $self->[1]->kv_store($key, $value) or Carp::croak $self->[1]->errstr;
    $value;
}

sub DELETE {
    my ($self, $key) = @_;
    my $prev = $self->[1]->kv_fetch($key);
    my $errstr = $self->[1]->errstr;
    return unless $errstr && $errstr eq 'UNQLITE_OK';
    $self->[1]->kv_delete($key) or Carp::croak $self->[1]->errstr;
    $prev;
}

sub FIRSTKEY {
    my $self = shift;
    $self->first_entry or return;
    $self->key;
}

sub NEXTKEY {
    my $self = shift;
    $self->next_entry or return;
    $self->key;
}

sub EXISTS {
    my ($self, $key) = @_;
    $self->[1]->kv_fetch($key) and return 1;
    my $errstr = $self->[1]->errstr;
    return $errstr && $errstr eq 'UNQLITE_OK' ? 1 : 0;
}

sub CLEAR {
    my $self = shift;
    $self->first_entry or return;
    $self->delete_entry while $self->valid_entry;
    return;
}

sub SCALAR {
    my $self = shift;
    $self->first_entry or return;
    my $ct = 1;
    $ct++ while $self->next_entry && $self->valid_entry;
    return $ct;
}

1;
__END__