3 # First, we will create a set of three new classes to make use of the
4 # augment method modifier. The class hierarchy will look like this:
12 # The Document class should have two read-only attributes: "title" and
15 # The Report class should have one read-only attribute: "summary".
17 # Finally, the TPSReport class should have three read-only attributes:
20 # The goal is to produce a report that looks this:
32 # This report will be a string returned by the Document->output
35 # Don't worry too much about how many newlines separate each item (as
36 # long as it's at least one). The test does a little massaging to make
37 # this more forgiving.
39 # Use augment method modifiers in Report and TPSReport to "inject" the
40 # relevant content, while Document will output the $title and $author.
47 use MooseClass::Tests;
51 MooseClass::Tests::tests04();