-sub _get_term_val ($$$) {
- my ($self, $pfx, $re) = @_;
- my $doc = $self->{doc};
- my $end = $doc->termlist_end;
- my $i = $doc->termlist_begin;
- $i->skip_to($pfx);
- if ($i != $end) {
- my $val = $i->get_termname;
- $val =~ s/$re// and return $val;
- }
- undef;
-}
-