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

oops

Browse source
This commit is contained in:
Kenichi Ishigaki 2013-07-04 13:23:50 +09:00
parent 008d6ea2f3
commit 317b78815a
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/UnQLite.pm
View file

@ -12,7 +12,7 @@ XSLoader::load(__PACKAGE__, $VERSION);
sub TIEHASH { sub TIEHASH {
my $class = shift; my $class = shift;
my $self = $class->open(@_) or croak $class->errstr; my $self = $class->open(@_) or Carp::croak $class->errstr;
$self->cursor_init; $self->cursor_init;
} }
@ -112,14 +112,14 @@ sub FETCH {
sub STORE { sub STORE {
my ($self, $key, $value) = @_; my ($self, $key, $value) = @_;
$self->[1]->kv_store($key, $value) or croak $self->[1]->errstr; $self->[1]->kv_store($key, $value) or Carp::croak $self->[1]->errstr;
$value; $value;
} }
sub DELETE { sub DELETE {
my ($self, $key) = @_; my ($self, $key) = @_;
my $prev = $self->kv_fetch($key); my $prev = $self->kv_fetch($key);
$self->[1]->kv_delete($key) or croak $self->[1]->errstr; $self->[1]->kv_delete($key) or Carp::croak $self->[1]->errstr;
$prev; $prev;
} }