Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
collect-example-metadata sets examples-metadata attribute
... instead of returning the value.  This can now be shared with other
methods to increase cohesion.
  • Loading branch information
Paul Cochrane committed Mar 29, 2015
1 parent 28b42a0 commit 72d680d
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 7 deletions.
9 changes: 4 additions & 5 deletions lib/Pod/Htmlify.pm6
Expand Up @@ -9,10 +9,12 @@ class Website is export {
has $.categories is rw;
has $.base-html-dir is rw = "html";
has $.base-categories-dir is rw = "categories";
has %.examples-metadata;

method build {
self.write-index;
my %examples = self.collect-example-metadata;
self.collect-example-metadata;
my %examples = %!examples-metadata;
self.write-category-indices(%examples);
self.create-category-dirs;
self.write-example-files(%examples);
Expand Down Expand Up @@ -67,7 +69,6 @@ class Website is export {
}

method collect-example-metadata {
my %examples;
for $!categories.categories-list -> $category, {
my $subcategory = "";
my $category-key = $category.key;
Expand Down Expand Up @@ -95,11 +96,9 @@ class Website is export {
pod-link => $link,
pod-contents => $pod,
);
%examples{$category-key}{$subcategory}{$file-basename} = $example;
%!examples-metadata{$category-key}{$subcategory}{$file-basename} = $example;
}
}

return %examples;
}

method p2h($pod) {
Expand Down
5 changes: 3 additions & 2 deletions t/004-website-basic.t
Expand Up @@ -220,8 +220,9 @@ subtest {
}
}

my %example-metadata = $website.collect-example-metadata;
ok(%example-metadata, "Non-null examples metadata structure returned");
$website.collect-example-metadata;
my %example-metadata = $website.examples-metadata;
ok(%example-metadata, "Non-null examples metadata structure set");

is(%example-metadata{"receiver"}{""}{"alice.pl"}.author, "victor",
"author name in example");
Expand Down

0 comments on commit 72d680d

Please sign in to comment.