Move footer-html into Pod::Htmlify

Raku · Feb 20, 2015 · f442416 · f442416
1 parent 2898af7
commit f442416
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 6 deletions.
diff --git a/htmlify.p6 b/htmlify.p6
@@ -63,11 +63,6 @@ sub header-html ($current-selection = 'nothing selected') is cached {
     $header.subst('MENU', :p($menu-pos), $menu-items ~ $sub-menu-items);
 }
 
-sub footer-html() {
-    my $footer = slurp 'template/footer.html';
-    $footer.subst('DATETIME', ~DateTime.now);
-}
-
 sub p2h($pod, $selection = 'nothing selected') {
     pod2html $pod,
         :url(&url-munge),

diff --git a/lib/Pod/Htmlify.pm6 b/lib/Pod/Htmlify.pm6
@@ -13,4 +13,9 @@ sub url-munge($_) is export {
     return $_;
 }
 
+sub footer-html() is export {
+    my $footer = slurp 'template/footer.html';
+    $footer.subst('DATETIME', ~DateTime.now);
+}
+
 # vim: expandtab shiftwidth=4 ft=perl6
diff --git a/t/pod-htmlify.t b/t/pod-htmlify.t
@@ -2,7 +2,7 @@ use v6;
 use Test;
 use lib 'lib';
 
-plan 2;
+plan 3;
 
 use_ok('Pod::Htmlify');
 use Pod::Htmlify;
@@ -22,4 +22,9 @@ subtest {
     is(url-munge('$*VAR'), '$*VAR', "sigil/twigil input");
 }, "url-munge";
 
+subtest {
+    plan 1;
+    isnt(footer-html(), "", "footer text isn't empty");
+}, "footer-html";
+
 # vim: expandtab shiftwidth=4 ft=perl6