| 1 | |
| 2 | use feature qw/:5.14/; |
| 3 | use Slob; |
| 4 | my $slob = Slob->new('t/freedict-01.slob'); |
| 5 | |
| 6 | my $nr_of_entries = $slob->ref_count; # if the same content has two |
| 7 | # keys pointing to it, this |
| 8 | # counts it twice |
| 9 | |
| 10 | my $second_ref = $slob->seek_and_read_ref(4); |
| 11 | say "Entry is for $second_ref->{key}"; |
| 12 | say "Data is in bin $second_ref->{bin_index} at position $second_ref->{item_index}"; |
| 13 | |
| 14 | my $bin = $slob->seek_and_read_storage_bin($second_ref->{bin_index}); |
| 15 | say "Bin has ", (scalar @{$bin->{positions}}), " entries"; |
| 16 | say "Value at position $second_ref->{item_index} is ", |
| 17 | $slob->get_entry_of_storage_bin($bin, $second_ref->{item_index}); |