Stop adding source code when no pod in source

... and this time do it in the right place!

Author: paultcochrane

lib/Pod/Htmlify.pm6

@@ -62,14 +62,8 @@ class Website is export {
     method collect-example-metadata($file, $category-key) {
         say "Collecting metadata from $file";
         my $perl-pod = qqx{perl6-m -Ilib --doc=Perl $file};
-        my $pod = EVAL $perl-pod;
         my $file-basename = $file.basename;
-        if !$pod {
-            my @contents = $file.lines.join("\n");
-            $pod = Array.new(pod-with-title($file-basename,
-                pod-code(@contents),
-            ));
-        }
+        my $pod = (EVAL $perl-pod) || [pod-with-title($file-basename)];
         my $example-title = pod-title-contents($pod, $file-basename);
         my $author = pod-author-contents($pod, $file-basename);
         my $html-file = $file-basename.subst(/\.p[l||6]$/, ".html");