Extract title contents in its own routine

Raku · Mar 11, 2015 · 868d277 · 868d277
1 parent 2b1bc9b
commit 868d277
Showing 1 changed file with 15 additions and 7 deletions.
diff --git a/htmlify.pl b/htmlify.pl
@@ -91,13 +91,8 @@
                 ));
             }
             else {
-                my $title-element = $pod[0].contents[0];
-                if $title-element ~~ Pod::Block::Named && $title-element.name eq "TITLE" {
-                    my $title = $title-element.contents[0].contents[0];
-                }
-                else {
-                    say "$file lacks a TITLE";
-                }
+                # XXX: $file should be part of $pod metadata
+                pod-title-contents($pod, $file);
             }
             $pod.push: source-reference($file, $category);
             my $html-file = $file.subst(/\.p(l|6)/, ".html");
@@ -106,6 +101,19 @@
     }
 }
 
+sub pod-title-contents($pod, $file) {
+    my $title-element = $pod[0].contents[0];
+    my $title;
+    if $title-element ~~ Pod::Block::Named && $title-element.name eq "TITLE" {
+        $title = $title-element.contents[0].contents[0];
+    }
+    else {
+        say "$file lacks a TITLE";
+    }
+
+    return $title;
+}
+
 sub source-reference($file, $category) {
     pod-block("Source code: ",
         pod-link($file.basename,