roles

[gitmo/Moose.git] / lib / Moose / Cookbook / Recipe4.pod

diff --git a/lib/Moose/Cookbook/Recipe4.pod b/lib/Moose/Cookbook/Recipe4.pod
index 36e1e92..944a737 100644 (file)
--- a/lib/Moose/Cookbook/Recipe4.pod
+++ b/lib/Moose/Cookbook/Recipe4.pod
@@ -11,6 +11,7 @@ Moose::Cookbook::Recipe4 - Subtypes, and modeling a simple B<Company> class hier
   use strict;
   use warnings;
   use Moose;
+  use Moose::Util::TypeConstraints;
   
   use Locale::US;
   use Regexp::Common 'zip';
@@ -39,6 +40,7 @@ Moose::Cookbook::Recipe4 - Subtypes, and modeling a simple B<Company> class hier
   use strict;
   use warnings;
   use Moose;
+  use Moose::Util::TypeConstraints;
   
   has 'name'      => (is => 'rw', isa => 'Str', required => 1);
   has 'address'   => (is => 'rw', isa => 'Address'); 
@@ -257,7 +259,7 @@ And thats about it.
 
 Once again, as with all the other recipes, you can go about using 
 these classes like any other Perl 5 class. A more detailed example of 
-usage can be found in F<t/004_basic.t>.
+usage can be found in F<t/004_recipe.t>.
 
 =head1 CONCLUSION