Prefer .traverse over .unpod on blocks

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);
 
 	''
 }