6 Moose::Cookbook::Recipe7 - The augment/inner example
10 package Document::Page;
13 has 'body' => (is => 'rw', isa => 'Str', default => sub {''});
23 my ($self, $appendage) = @_;
24 $self->body($self->body . $appendage);
27 sub open_page { (shift)->append_body('<page>') }
28 sub open_page { (shift)->append_body('</page>') }
30 package MyDocument::PageWithHeadersAndFooters;
33 extends 'Document::Page';
35 augment create => sub {
42 sub create_header { (shift)->append_body('<header/>') }
43 sub create_footer { (shift)->append_body('<footer/>') }
45 package MyDocument::TPSReport;
48 extends 'MyDocument::PageWithHeadersAndFooters';
50 augment create => sub {
52 $self->create_tps_report;
55 sub create_tps_report {
56 (shift)->append_body('<report type="tps"/>')
71 Stevan Little E<lt>stevan@iinteractive.comE<gt>
73 =head1 COPYRIGHT AND LICENSE
75 Copyright 2006, 2007 by Infinity Interactive, Inc.
77 L<http://www.iinteractive.com>
79 This library is free software; you can redistribute it and/or modify
80 it under the same terms as Perl itself.