| … | |
… | |
| 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] |
