Tidy the code (and clean up rampant wacky whitespace for RT 40432)
Dave Rolsky [Fri, 7 Nov 2008 21:20:45 +0000 (21:20 +0000)]
lib/Moose/Cookbook/Basics/Recipe6.pod

index bce383d..9fb42dd 100644 (file)
@@ -6,57 +6,58 @@
 Moose::Cookbook::Basics::Recipe6 - The augment/inner example
 
 =head1 SYNOPSIS
-    
+
   package Document::Page;
   use Moose;
-  
-  has 'body' => (is => 'rw', isa => 'Str', default => sub {''});
-  
+
+  has 'body' => ( is => 'rw', isa => 'Str', default => sub {''} );
+
   sub create {
       my $self = shift;
       $self->open_page;
       inner();
       $self->close_page;
   }
-  
-  sub append_body { 
-      my ($self, $appendage) = @_;
-      $self->body($self->body . $appendage);
+
+  sub append_body {
+      my ( $self, $appendage ) = @_;
+      $self->body( $self->body . $appendage );
   }
-  
+
   sub open_page  { (shift)->append_body('<page>') }
-  sub close_page { (shift)->append_body('</page>') }  
-  
+  sub close_page { (shift)->append_body('</page>') }
+
   package Document::PageWithHeadersAndFooters;
   use Moose;
-  
+
   extends 'Document::Page';
-  
+
   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/>') }  
-  
+  sub create_footer { (shift)->append_body('<footer/>') }
+
   package TPSReport;
   use Moose;
-  
+
   extends 'Document::PageWithHeadersAndFooters';
-  
+
   augment 'create' => sub {
       my $self = shift;
       $self->create_tps_report;
   };
-  
+
   sub create_tps_report {
-     (shift)->append_body('<report type="tps"/>') 
+      (shift)->append_body('<report type="tps"/>');
   }
-  
-  print TPSReport->new->create # <page><header/><report type="tps"/><footer/></page>
+
+  # <page><header/><report type="tps"/><footer/></page>
+  print TPSReport->new->create;
 
 =head1 DESCRIPTION