erlfunc entries in JSON format for the DHTML autocompleter
my @funcs = map {$_->title} grep {$_->content =~ /\S/} $self->perlfunc_items;
s|[/\s(].*||s foreach @funcs;
my $json_funcs = "[" . join
(",", map {qq{"$_"}} uniq @funcs) . "]";
# perlvar entries in JSON format for the DHTML autocompleter
my @vars = map {$_->title} grep {!/->/} map {@$_} $self->perlvar_items;
s|\s*X<.*||s foreac
h @vars;
s|\\|\\\\|g foreach @vars;
s|"|\\"|g foreach @vars;
my $json_vars = "[" . join(",", map {qq{"$_"}} uniq @vars) . "]";
# initial sections : perldocs, pragmas and scripts
my @per