zyppe/Perl-UnQLite
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

magic rc

Browse source
This commit is contained in:
Kenichi Ishigaki 2013-07-05 12:51:20 +09:00
parent 89c490c504
commit efa2f598fa
2 changed files with 76 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/UnQLite.pm
View file

@ -16,10 +16,15 @@ sub TIEHASH {
$self->cursor_init;
}
sub rc { $UnQLite::rc }
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" }
@ -53,6 +58,12 @@ sub cursor_init {
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]);