aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPatrick Spek <p.spek@tyil.nl>2020-01-17 05:41:49 +0100
committerPatrick Spek <p.spek@tyil.nl>2020-01-17 05:41:49 +0100
commitfe43edeb11065a7c181c4b97bd4d6f055d20b429 (patch)
tree479759e45a004a91c5cb496513324b0044c07362
parent2fce26f303cd928ce6faf6c13d01ca8f6c283a97 (diff)
downloadPod::To::HTML::Section-fe43edeb11065a7c181c4b97bd4d6f055d20b429.tar.gz
Pod::To::HTML::Section-fe43edeb11065a7c181c4b97bd4d6f055d20b429.tar.bz2
Prefer .traverse over .unpod on blocks
-rw-r--r--lib/Pod/To/HTML/Section.pm617
1 files changed, 13 insertions, 4 deletions
diff --git a/lib/Pod/To/HTML/Section.pm6 b/lib/Pod/To/HTML/Section.pm6
index e8dcfc4..860ac14 100644
--- a/lib/Pod/To/HTML/Section.pm6
+++ b/lib/Pod/To/HTML/Section.pm6
@@ -23,7 +23,10 @@ multi method render (Pod::Block::Declarator:D $declarator --> Str) {
}
multi method render (Pod::Block::Named::Author:D $author --> Str) {
- @authors.append: self.unpod($author).&escape-html;
+ ENTER { $no-para++ }
+ LEAVE { $no-para-- }
+
+ @authors.append: self.traverse($author);
''
}
@@ -32,7 +35,7 @@ multi method render (Pod::Block::Named::Name:D $t --> Str) {
ENTER { $no-para++ }
LEAVE { $no-para-- }
- $title = self.unpod($t).&escape-html;
+ $title = self.traverse($t);
''
}
@@ -42,13 +45,19 @@ multi method render (Pod::Block::Named::Subtitle:D $subtitle --> Str) {
}
multi method render (Pod::Block::Named::Title:D $t --> Str) {
- $title = self.unpod($t).&escape-html;
+ ENTER { $no-para++ }
+ LEAVE { $no-para-- }
+
+ $title = self.traverse($t);
''
}
multi method render (Pod::Block::Named::Version:D $v --> Str) {
- $version = self.unpod($v);
+ ENTER { $no-para++ }
+ LEAVE { $no-para-- }
+
+ $version = self.traverse($v);
''
}