doc updates
[gitmo/Moose.git] / lib / Moose / Cookbook / Recipe7.pod
index f53df9c..c54d39a 100644 (file)
@@ -6,7 +6,7 @@
 Moose::Cookbook::Recipe7 - The augment/inner example
 
 =head1 SYNOPSIS
-  
+    
   package Document::Page;
   use Moose;
   
@@ -24,30 +24,30 @@ Moose::Cookbook::Recipe7 - The augment/inner example
       $self->body($self->body . $appendage);
   }
   
-  sub open_page { (shift)->append_body('<page>') }
-  sub open_page { (shift)->append_body('</page>') }  
+  sub open_page  { (shift)->append_body('<page>') }
+  sub close_page { (shift)->append_body('</page>') }  
   
-  package MyDocument::PageWithHeadersAndFooters;
+  package Document::PageWithHeadersAndFooters;
   use Moose;
   
   extends 'Document::Page';
   
-  augment create => sub {
+  augment 'create' => sub {
       my $self = shift;
       $self->create_header;
       inner();
       $self->create_footer;
-  }
+  };
   
   sub create_header { (shift)->append_body('<header/>') }
   sub create_footer { (shift)->append_body('<footer/>') }  
   
-  package MyDocument::TPSReport;
+  package TPSReport;
   use Moose;
   
-  extends 'MyDocument::PageWithHeadersAndFooters';
+  extends 'Document::PageWithHeadersAndFooters';
   
-  augment create => sub {
+  augment 'create' => sub {
       my $self = shift;
       $self->create_tps_report;
   };
@@ -55,9 +55,13 @@ Moose::Cookbook::Recipe7 - The augment/inner example
   sub create_tps_report {
      (shift)->append_body('<report type="tps"/>') 
   }
+  
+  print TPSReport->new->create # <page><header/><report type="tps"/><footer/></page>
 
 =head1 DESCRIPTION
 
+Coming Soon.
+
 =head1 CONCLUSION
 
 =head1 FOOTNOTES
@@ -72,7 +76,7 @@ Stevan Little E<lt>stevan@iinteractive.comE<gt>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2006, 2007 by Infinity Interactive, Inc.
+Copyright 2007 by Infinity Interactive, Inc.
 
 L<http://www.iinteractive.com>