- my $trim = 1;
- my $before = $offset > $context ? $self->[$offset - $context] : '';
- for my $match (split //, $before) {
- scalar $link =~ /\G\Q$match/g or last;
- $trim++;
+ {
+ # take a value slightly before the current offset
+ my $before = $offset > $context ? $self->[$offset - $context] : '.';
+ # see how much of it matches the current link
+ my $trim = 1;
+ for my $match (split //, $before) {
+ scalar $link =~ /\G\Q$match/g or last;
+ $trim++;
+ }
+ # truncate link upto where the earlier value starts to differ
+ substr($link, $trim) = '' unless $trim > length $link;
+ }
+
+ if ($offset + $context < $#$self) {
+ # take a value after the current offset
+ my $after = $self->[$offset + $context];
+ # see how much of it matches the current link
+ my $trim = 1;
+ for my $match (split //, $after) {
+ scalar $link =~ /\G\Q$match/g or last;
+ $trim++;
+ }
+ # use this link if it's shorter
+ if ($trim < length $link) {
+ $link = substr $after, 0, $trim;
+ }