Example() now takes a pod-content field

Author: paultcochrane

lib/Perl6/Example.pm

@@ -10,6 +10,7 @@ class Example is export {
     has $.subcategory is rw;
     has $.filename is rw;
     has $.pod-link is rw;
+    has $.pod-contents is rw;
 }
 
 # vim: expandtab shiftwidth=4 ft=perl6

t/001-example-basic.t

@@ -20,12 +20,13 @@ subtest {
                     subcategory => "",
                     filename => "",
                     pod-link => "",
+                    pod-contents => "",
                 );
     ok($example, "Instantiation setting all attributes");
 }, "Object instantiation";
 
 subtest {
-    plan 6;
+    plan 7;
 
     my $example = Example.new;
     $example.title = "my title";
@@ -46,6 +47,9 @@ subtest {
     $example.pod-link = "/just/a/plain/link.html";
     is($example.pod-link, "/just/a/plain/link.html", "Can set pod-link attribute");
 
+    $example.pod-contents = Pod::Block.new;
+    ok($example.pod-contents ~~ Pod::Block, "pod-contents is a Pod::Block");
+
 }, "Attribute setting";
 
 # vim: expandtab shiftwidth=4 ft=perl6