ex.pl

   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});