Remove category attr from Example() class

A Category containes Examples, it isn't necessary for the Examples to duplicate this information.
Raku · Apr 5, 2015 · 197b08c · 197b08c
1 parent 459fb61
commit 197b08c
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 8 deletions.
diff --git a/lib/Perl6/Examples.pm b/lib/Perl6/Examples.pm
@@ -6,7 +6,6 @@ use v6;
 class Example is export {
     has $.title is rw;
     has $.author is rw;
-    has $.category is rw;
     has $.filename is rw;
     has $.pod-link is rw;
     has $.pod-contents is rw;

diff --git a/lib/Pod/Htmlify.pm6 b/lib/Pod/Htmlify.pm6
@@ -70,7 +70,6 @@ class Website is export {
         my $example = Example.new(
                         title => $example-title,
                         author => $author,
-                        category => $category-key,
                         filename => $file,
                         pod-link => $link,
                         pod-contents => $pod,
@@ -114,7 +113,6 @@ class Website is export {
                     my @rows = @examples.map: {[.pod-link, .title, .author]};
                     my $base-dir = $!base-html-dir ~ "/categories/" ~ $category-key;
                     my $output-file = $base-dir ~ "/$subcategory-key.html";
-                    say $output-file;
                     spurt $output-file, self.p2h(
                         pod-with-title($title,
                             pod-table(@rows, headers => @headers),

diff --git a/t/001-example-basic.t b/t/001-example-basic.t
@@ -16,7 +16,6 @@ subtest {
     my $example = Example.new(
                     title => "",
                     author => "",
-                    category => "",
                     filename => "",
                     pod-link => "",
                     pod-contents => "",
@@ -25,7 +24,7 @@ subtest {
 }, "Object instantiation";
 
 subtest {
-    plan 6;
+    plan 5;
 
     my $example = Example.new;
     $example.title = "my title";
@@ -34,9 +33,6 @@ subtest {
     $example.author = "bob";
     is($example.author, "bob", "Can set author attribute");
 
-    $example.category = "Cookbook";
-    is($example.category, "Cookbook", "Can set category attribute");
-
     $example.filename = "001-blah.pl";
     is($example.filename, "001-blah.pl", "Can set filename attribute");