]>
Commit | Line | Data |
---|---|---|
d3779104 MG |
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}); |