Use examples-metadata attr in write-example-files

Raku · Mar 29, 2015 · 355906b · 355906b
1 parent 5afb69f
commit 355906b
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/lib/Pod/Htmlify.pm6 b/lib/Pod/Htmlify.pm6
@@ -14,10 +14,9 @@ class Website is export {
     method build {
         self.write-index;
         self.collect-example-metadata;
-        my %examples = %!examples-metadata;
         self.write-category-indices;
         self.create-category-dirs;
-        self.write-example-files(%examples);
+        self.write-example-files;
     }
 
     method create-category-dirs {
@@ -51,14 +50,14 @@ class Website is export {
         }
     }
 
-    method write-example-files(%examples) {
-        my @categories = %examples.keys;
+    method write-example-files {
+        my @categories = %!examples-metadata.keys;
         for @categories -> $category {
             say "Creating example files for category: $category";
             my @files = files-in-category($category, base-dir => $!base-categories-dir);
             for @files -> $file {
                 next unless $file.IO.e;
-                my $example = %examples{$category}{""}{$file.IO.basename};
+                my $example = %!examples-metadata{$category}{""}{$file.IO.basename};
                 my $pod = format-author-heading($example);
                 $pod.push: source-reference($file, $category);
                 my $html-file = $file.IO.basename.subst(/\.p(l|6)/, ".html");

diff --git a/t/004-website-basic.t b/t/004-website-basic.t
@@ -166,7 +166,8 @@ subtest {
     }
 
     $website.create-category-dirs;
-    $website.write-example-files(%examples);
+    $website.examples-metadata = %examples;
+    $website.write-example-files;
 
     my @example-html-files = qw{
         sender/bob.html