Lines Matching refs:self
868 my $self = shift ;
869 $self->_DESTROY() ;
881 my $self = shift ;
923 my ($addr) = _db_open_hash($self, $got);
926 $obj = bless [$addr] , $self ;
946 my $self = shift ;
982 my ($addr) = _db_open_btree($self, $got);
985 $obj = bless [$addr] , $self ;
1005 my $self = shift ;
1048 my ($addr) = _db_open_recno($self, $got);
1051 $obj = bless [$addr] , $self ;
1071 my $self = shift ;
1112 my ($addr) = _db_open_queue($self, $got);
1115 $obj = bless [$addr] , $self ;
1127 my $self = shift;
1140 ## my $self = shift ;
1176 ## return BerkeleyDB::Recno::_db_open_recno($self, $got);
1191 my $self = shift ;
1240 # my $self = shift ;
1243 #print "Tiehash REF=[$self] [" . (ref $self) . "]\n" ;
1245 # return bless { Obj => $db_object}, $self ;
1255 my $self = shift ;
1257 #print "Tie method REF=[$self] [" . (ref $self) . "]\n" ;
1265 #tie %{ $ref }, ref($self), $self ;
1266 tie %{ $ref }, "BerkeleyDB::_tiedHash", $self ;
1273 my $self = shift ;
1281 my $self = shift ;
1285 $self->db_put($key, $value) ;
1290 my $self = shift ;
1293 $self->db_get($key, $value) ;
1300 my $self = shift ;
1303 $self->db_get($key, $value) == 0 ;
1308 my $self = shift ;
1310 $self->db_del($key) ;
1315 my $self = shift ;
1317 my $cursor = $self->_db_write_cursor() ;
1324 # my $self = shift ;
1326 # $self->{Cursor}->c_close() if $self->{Cursor} ;
1340 my $self = shift ;
1342 #print "Tie method REF=[$self] [" . (ref $self) . "]\n" ;
1350 #tie %{ $ref }, ref($self), $self ;
1351 tie @{ $ref }, "BerkeleyDB::_tiedArray", $self ;
1358 # my $self = shift ;
1361 #print "Tiearray REF=[$self] [" . (ref $self) . "]\n" ;
1363 # return bless { Obj => $db_object}, $self ;
1368 my $self = shift ;
1376 my $self = shift ;
1380 $self->db_put($key, $value) ;
1385 my $self = shift ;
1388 $self->db_get($key, $value) ;
1402 my $self = shift;
1404 my $cursor = $self->_db_write_cursor() ;
1414 my $self = shift;
1418 my $cursor = $self->_db_write_cursor() ;
1433 $self->db_put($key++, $value) ;
1441 my $self = shift;
1445 my $cursor = $self->_db_write_cursor() ;
1449 $key = -1 if $status != 0 and $self->type != BerkeleyDB::DB_RECNO() ;
1453 $status = $self->db_put($key, $value) ;
1468 my $self = shift;
1470 my $cursor = $self->_db_write_cursor() ;
1479 my $self = shift;
1494 # my $self = shift;
1496 # my $current_length = $self->FETCHSIZE() ;
1503 # { $self->db_del($key) }
1507 # $self->db_put($length-1, "") ;
1517 # my $self = shift ;
1529 my $self = shift ;
1530 $self->_DESTROY() ;
1535 my $self = shift ;
1537 #print "BerkeleyDB::Common::Txn db [$self] txn [$txn]\n" ;
1539 $self->_Txn($txn) ;
1540 push @{ $txn }, $self ;
1543 $self->_Txn() ;
1637 my $self = shift ;
1638 $self->_DESTROY() ;
1645 my $self = shift ;
1646 $self->_DESTROY() ;
1662 my $self = shift ;
1666 $db->_Txn($self) ;
1667 push @{ $self}, $db ;
1673 my $self = shift ;
1674 $self->disassociate() ;
1675 my $status = $self->_txn_commit() ;
1681 my $self = shift ;
1682 $self->disassociate() ;
1683 my $status = $self->_txn_abort() ;
1689 my $self = shift ;
1691 while ( @{ $self } > 2) {
1692 $db = pop @{ $self } ;
1701 my $self = shift ;
1703 $self->disassociate() ;
1705 $self->_DESTROY() ;
1734 my $self = shift ;
1735 my $db = $self->[0] ;
1737 if ($self->[1])
1739 $self->[1] = 0 ;
1756 my $self = shift ;
1757 $self->cds_unlock() ;