… | |
… | |
25 | db_sync $db; |
25 | db_sync $db; |
26 | |
26 | |
27 | # when you also use Coro, management is easy: |
27 | # when you also use Coro, management is easy: |
28 | use Coro::BDB; |
28 | use Coro::BDB; |
29 | |
29 | |
30 | # automatic event loop intergration with AnyEvent: |
30 | # automatic event loop integration with AnyEvent: |
31 | use AnyEvent::BDB; |
31 | use AnyEvent::BDB; |
32 | |
32 | |
33 | # automatic result processing with EV: |
33 | # automatic result processing with EV: |
34 | my $WATCHER = EV::io BDB::poll_fileno, EV::READ, \&BDB::poll_cb; |
34 | my $WATCHER = EV::io BDB::poll_fileno, EV::READ, \&BDB::poll_cb; |
35 | |
35 | |
… | |
… | |
390 | flags: SEQ_DEC SEQ_INC SEQ_WRAP |
390 | flags: SEQ_DEC SEQ_INC SEQ_WRAP |
391 | $int = $seq->set_range (db_seq_t min, db_seq_t max) |
391 | $int = $seq->set_range (db_seq_t min, db_seq_t max) |
392 | |
392 | |
393 | Example: |
393 | Example: |
394 | my $seq = $db->sequence; |
394 | my $seq = $db->sequence; |
395 | |
395 | |
396 | db_sequence_open $seq, undef, "seq", BDB::CREATE; |
396 | db_sequence_open $seq, undef, "seq", BDB::CREATE; |
397 | db_sequence_get $seq, undef, 1, my $value; |
397 | db_sequence_get $seq, undef, 1, my $value; |
398 | |
398 | |
399 | SUPPORT FUNCTIONS |
399 | SUPPORT FUNCTIONS |
400 | EVENT PROCESSING AND EVENT LOOP INTEGRATION |
400 | EVENT PROCESSING AND EVENT LOOP INTEGRATION |
401 | $msg = BDB::strerror [$errno] |
401 | $msg = BDB::strerror [$errno] |