reformat
authorSteve Hancock <perltidy@users.sourceforge.net>
Thu, 7 Nov 2024 00:09:40 +0000 (16:09 -0800)
committerSteve Hancock <perltidy@users.sourceforge.net>
Thu, 7 Nov 2024 00:09:40 +0000 (16:09 -0800)
lib/Perl/Tidy/HtmlWriter.pm

index 6722faddc5f250347160d9d7e2f3d80c4e97221d..5738ee666e5d543f6548270db32f8d35f76043b9 100644 (file)
@@ -123,7 +123,7 @@ sub new {
 
         # pre section goes directly to the output stream
         $html_pre_fh = $html_fh;
-        $html_pre_fh->print( <<"PRE_END");
+        $html_pre_fh->print(<<"PRE_END");
 <pre>
 PRE_END
     }
@@ -252,7 +252,7 @@ EOM
         # but just quit if we hit EOF without any other entries
         # in this case, there will be no toc
         return if ( $type eq 'EOF' );
-        $html_toc_fh->print( <<"TOC_END");
+        $html_toc_fh->print(<<"TOC_END");
 <!-- BEGIN CODE INDEX --><a name="code-index"></a>
 <ul>
 TOC_END
@@ -309,7 +309,7 @@ TOC_END
 
     # end the table of contents, if any, on the end of file
     if ( $type eq 'EOF' ) {
-        $html_toc_fh->print( <<"TOC_END");
+        $html_toc_fh->print(<<"TOC_END");
 </ul>
 <!-- END CODE INDEX -->
 TOC_END
@@ -1176,7 +1176,7 @@ sub close_html_file {
     # Path 1: finish up if in -pre mode
     # ---------------------------------
     if ( $rOpts->{'html-pre-only'} ) {
-        $html_fh->print( <<"PRE_END");
+        $html_fh->print(<<"PRE_END");
 </pre>
 PRE_END
         $html_fh->close()
@@ -1216,12 +1216,12 @@ PRE_END
 
     # or use css embedded in this file
     else {
-        $fh_css->print( <<'ENDCSS');
+        $fh_css->print(<<'ENDCSS');
 <style type="text/css">
 <!--
 ENDCSS
         write_style_sheet_data($fh_css);
-        $fh_css->print( <<"ENDCSS");
+        $fh_css->print(<<"ENDCSS");
 -->
 </style>
 ENDCSS
@@ -1249,7 +1249,7 @@ ENDCSS
         my $date = localtime;
         $timestamp = "on $date";
     }
-    $html_fh->print( <<"HTML_START");
+    $html_fh->print(<<"HTML_START");
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 <!-- Generated by perltidy $timestamp -->
@@ -1261,21 +1261,21 @@ HTML_START
     # output the css, if used
     if ($css_string) {
         $html_fh->print($css_string);
-        $html_fh->print( <<"ENDCSS");
+        $html_fh->print(<<"ENDCSS");
 </head>
 <body>
 ENDCSS
     }
     else {
 
-        $html_fh->print( <<"HTML_START");
+        $html_fh->print(<<"HTML_START");
 </head>
 <body bgcolor=\"$rOpts->{'html-color-background'}\" text=\"$rOpts->{'html-color-punctuation'}\">
 HTML_START
     }
 
     $html_fh->print("<a name=\"-top-\"></a>\n");
-    $html_fh->print( <<"EOM");
+    $html_fh->print(<<"EOM");
 <h1>$title</h1>
 EOM
 
@@ -1290,7 +1290,7 @@ EOM
     # copy the pre section(s)
     my $fname_comment = $input_file;
     $fname_comment =~ s/--+/-/g;    # protect HTML comment tags
-    $html_fh->print( <<"END_PRE");
+    $html_fh->print(<<"END_PRE");
 <hr />
 <!-- contents of filename: $fname_comment -->
 <pre>
@@ -1301,7 +1301,7 @@ END_PRE
     }
 
     # and finish the html page
-    $html_fh->print( <<"HTML_END");
+    $html_fh->print(<<"HTML_END");
 </pre>
 </body>
 </html>