package Perl::Tidy::HtmlWriter;
use strict;
use warnings;
-our $VERSION = '20210717';
+our $VERSION = '20220217';
use File::Basename;
$html_toc_fh->print("</ul>\n</li>\n");
${$rin_toc_package} = "";
}
+ return;
};
my $start_package_list = sub {
<ul>
EOM
${$rin_toc_package} = $package;
+ return;
};
# start the table of contents on the first item
$html_fh->print($_) unless ($no_print);
if ($in_toc) { push @toc, $_ }
}
+ return;
};
# loop over lines of html output from pod2html and merge in
elsif ( $line_type eq 'HERE_END' ) { $line_character = 'h' }
elsif ( $line_type eq 'FORMAT' ) { $line_character = 'H' }
elsif ( $line_type eq 'FORMAT_END' ) { $line_character = 'h' }
+ elsif ( $line_type eq 'SKIP' ) { $line_character = 'H' }
+ elsif ( $line_type eq 'SKIP_END' ) { $line_character = 'h' }
elsif ( $line_type eq 'SYSTEM' ) { $line_character = 'c' }
elsif ( $line_type eq 'END_START' ) {
$line_character = 'k';
return;
}
1;
-