lib/Perl/Tidy.pm

614       make_extension( $rOpts->{'html-toc-extension'}, 'toc', $dot );
1600     $add_option->( 'space-after-keyword',                       'sak',   '=s' );
3382  -sil=n  set starting indentation level to n;  use if auto detection fails
3415  -sak=s  put space between keywords given in s and '(';
3519        -toc places a table of contents to subs at the top (default)
3522        -text=s extra extension for table of contents if -frm, default='toc'
4665         _rtoc_string       => \$toc_string,         # string holding toc
4666         _rtoc_item_count   => \$toc_item_count,     # how many toc items
4716         # in this case, there will be no toc
4758     # now write an entry in the toc for this item
4807         'h'  => 'here-doc-target',
4808         'hh' => 'here-doc-text',
4907     push @$rgetopt_names, "html-toc-extension=s";
4950     ${$rexpansion}{"toc"}   = ["html-table-of-contents"];
4962     ${$rexpansion}{"text"}  = ["html-toc-extension"];
5228     my @toc;
5232     # This routine will write the html selectively and store the toc
5236             if ($in_toc) { push @toc, $_ }
5273         # Copy the perltidy toc, if any, after the Pod::Html toc
5280                 my @toc = map { $_ .= "\n" } split /\n/, $toc_string;
5281                 $html_print->(@toc);
5361         $self->make_frame( \@toc );
5654         my @toc = map { $_ .= "\n" } split /\n/, $$rtoc_string;
5655         $self->make_frame( \@toc );
5674         # the toc correct because some packages may be declared within
5688             # have to make an entry in the toc
5698         # entry in the toc
5706             # but don't include sub declarations in the toc;
5718         # into keyword 'package' and name; add to the toc,
6571     #   HERE_END       - last line of here-doc (target word)
8232           # retain any space after here doc operator ( hereerr.t)
8807         # filehandle (except _) or here doc operator
16603             "List: auto formatting with $number_of_fields fields/row\n");
17576                                 # or the next line ends with a here doc
17913                         # or the next line ends with a here doc
22678     # _rhere_target_list    reference to list of here-doc targets
22680     # _here_quote_character the type of here-doc quoting (" ' ` or none)
22684     # _in_here_doc          flag indicating if we are in a here-doc
22998     #   HERE_END       - last line of here-doc (target word)
23279     # see if this line contains here doc targets
23788         #  $rht = reference to any here-doc targets
23794         write_logfile_entry("scanning replacement text for here-doc targets\n");
23840         # remove any here doc targets
23862         # return the here doc targets
24649         '<<' => sub {    # maybe a here-doc?
24652               ;          # here-doc not possible if end of line
24682                         warning("Program bug; didn't find here doc target\n");
25082                         # text for here-doc targets.
25088                             # here-doc targets so that the formatter (see sub
26091 ##                      File::Spec->catdir( $_, "auto", $root, "$sub$lib_ext" )
26434     # can be a shift operator or a here-doc operator.  The
26438     # is expected, and a here-doc if a term is expected.  This routine
27401 # try to resolve here-doc vs. shift by looking ahead for
27403 # returns 1 if it is probably a here doc, 0 if not
27443                   " -- guessing it's a here-doc ($next_token not a constant)\n";
28934     #   $i - unchanged if not here doc,
28974 "Did not find here-doc string terminator ($here_quote_character) before end of line \n"
28988                 # so that the here-doc-target exactly matches this string
29025             write_logfile_entry("Note: bare here-doc operator <<\n");
29513     HERE_END       - last line of here-doc (target word)
30338     HERE_END       - last line of here-doc (target word)