aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPatrick Spek <p.spek@tyil.nl>2020-01-17 06:21:28 +0100
committerPatrick Spek <p.spek@tyil.nl>2020-01-17 06:25:44 +0100
commitc9697f5057d50a723993c109e36c9f78be1c286e (patch)
treeff5e96b0f8a0847bb3623d2df0d46645b916a090
parent062a2bb05c6f24a094b6ea29bf563d92670869e0 (diff)
downloadPod::To::HTML::Section-c9697f5057d50a723993c109e36c9f78be1c286e.tar.gz
Pod::To::HTML::Section-c9697f5057d50a723993c109e36c9f78be1c286e.tar.bz2
Untidy default output
-rw-r--r--lib/Pod/To/HTML/Section.pm613
1 files changed, 6 insertions, 7 deletions
diff --git a/lib/Pod/To/HTML/Section.pm6 b/lib/Pod/To/HTML/Section.pm6
index b0c8060..18774fa 100644
--- a/lib/Pod/To/HTML/Section.pm6
+++ b/lib/Pod/To/HTML/Section.pm6
@@ -75,13 +75,12 @@ multi method render (Pod::Block::Named::Pod:D $document --> Str) {
my $body = self.traverse($document);
# Create the HTML section to output
- my $section = qq:to/EOF/;
- <section id="pod">
- <h1>$title <small>{$version}</small></h1>
- $body
- <h2>Authors</h2>
- <ul>{@authors.map({ "<li>{$_}</li>" })}</ul>
- EOF
+ my $section = '<section id="pod">'
+ ~ "<h1>$title <small>{$version}</small></h1>"
+ ~ $body
+ ~ '<h2>Authors</h2>'
+ ~ "<ul>{@authors.map({ "<li>{$_}</li>" })}</ul>"
+ ;
if (@notes) {
$section ~= '<hr>';