Remove alias_method (it's been deprecated since 0.73_01)

[gitmo/Moose.git] / lib / Moose / Cookbook / Basics / Recipe6.pod

diff --git a/lib/Moose/Cookbook/Basics/Recipe6.pod b/lib/Moose/Cookbook/Basics/Recipe6.pod
index a46e4c0..c98981b 100644 (file)
--- a/lib/Moose/Cookbook/Basics/Recipe6.pod
+++ b/lib/Moose/Cookbook/Basics/Recipe6.pod
@@ -58,7 +58,7 @@ Moose::Cookbook::Basics::Recipe6 - The augment/inner example
   }
 
   # <page><header/><report type="tps"/><footer/></page>
-  print TPSReport->new->create;
+  my $report_xml = TPSReport->new->create;
 
 =head1 DESCRIPTION
 
@@ -116,7 +116,7 @@ easily subclass C<TPSReport> in the future.
 
 The C<augment> modifier is a powerful tool for creating a set of
 nested wrappers. It's not something you will need often, but when you
-do it is very handy.
+do, it is very handy.
 
 =head1 AUTHOR
 
@@ -133,4 +133,17 @@ L<http://www.iinteractive.com>
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.
 
+=begin testing
+
+my $tps_report = TPSReport->new;
+isa_ok( $tps_report, 'TPSReport' );
+
+is(
+    $tps_report->create,
+    q{<page><header/><report type="tps"/><footer/></page>},
+    '... got the right TPS report'
+);
+
+=end testing
+
 =cut