add no-toc class to pod-body

Raku · Jul 8, 2016 · 0bf23d3 · 0bf23d3
1 parent 236e497
commit 0bf23d3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/META.info b/META.info
@@ -1,6 +1,6 @@
 {
     "name"        : "Pod::To::HTML",
-    "version"     : "0.1.3",
+    "version"     : "0.1.4",
     "description" : "Convert Perl 6 Pod to HTML",
     "depends"     : ["URI"],
     "provides"    : {

diff --git a/lib/Pod/To/HTML.pm b/lib/Pod/To/HTML.pm
@@ -173,8 +173,8 @@ sub pod2html($pod, :&url = -> $url { $url }, :$head = '', :$header = '', :$foote
                          !! () ),
         ( $subtitle.defined  ?? "<p class='subtitle'>{$subtitle}</p>"
                          !! () ),
-        ( do-toc($pod) // () ),
-        '<div class="pod-body">,@body,'</div>',
+        ( my $ToC := do-toc($pod) // () ),
+        '<div class="pod-body', ($ToC ?? '' !! ' no-toc'), '">',@body,'</div>',
         do-footnotes(),
         $footer,
         '</body>',