punctuation fix

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

diff --git a/lib/Moose/Cookbook/Basics/Recipe1.pod b/lib/Moose/Cookbook/Basics/Recipe1.pod
index 4e5fb91..d9c478f 100644 (file)
--- a/lib/Moose/Cookbook/Basics/Recipe1.pod
+++ b/lib/Moose/Cookbook/Basics/Recipe1.pod
@@ -1,9 +1,11 @@
+package Moose::Cookbook::Basics::Recipe1;
 
-=pod
+# ABSTRACT: The (always classic) B<Point> example.
+
+__END__
 
-=head1 NAME
 
-Moose::Cookbook::Basics::Recipe1 - The (always classic) B<Point> example.
+=pod
 
 =head1 SYNOPSIS
 
@@ -69,7 +71,7 @@ that we expect the value stored in this attribute to pass the type
 constraint for C<Int> (1). The accessor generated for this attribute
 will be read-write.
 
-The C<< requires => 1 >> parameter means that this attribute must be
+The C<< required => 1 >> parameter means that this attribute must be
 provided when a new object is created. A point object without
 coordinates doesn't make much sense, so we don't allow it.
 
@@ -163,7 +165,7 @@ required, and calling C<new> without them will throw an error.
 From here on, we can use C<$point> and C<$point3d> just as you would
 any other Perl 5 object. For a more detailed example of what can be
 done, you can refer to the
-F<t/000_recipes/moose_cookbook_basics_recipe1.t> test file.
+F<t/recipes/moose_cookbook_basics_recipe1.t> test file.
 
 =head2 Moose Objects are Just Hashrefs
 
@@ -191,13 +193,13 @@ subclassing, and a simple method modifier.
 
 =item (1)
 
-Moose provides a number of builtin type constraints are provided by,
-of which C<Int> is one. For more information on the type constraint
-system, see L<Moose::Util::TypeConstraints>.
+Moose provides a number of builtin type constraints, of which C<Int>
+is one. For more information on the type constraint system, see
+L<Moose::Util::TypeConstraints>.
 
 =item (2)
 
-The C<extends> keyword support multiple inheritance. Simply pass all
+The C<extends> keyword supports multiple inheritance. Simply pass all
 of your superclasses to C<extends> as a list:
 
   extends 'Foo', 'Bar', 'Baz';
@@ -205,8 +207,7 @@ of your superclasses to C<extends> as a list:
 =item (3)
 
 Moose supports using instance structures other than blessed hash
-references (such as in a glob reference - see
-L<MooseX::GlobRef::Object>).
+references (such as glob references - see L<MooseX::GlobRef>).
 
 =back
 
@@ -216,28 +217,13 @@ L<MooseX::GlobRef::Object>).
 
 =item Method Modifiers
 
-The concept of method modifiers is directly ripped off from CLOS. A 
+The concept of method modifiers is directly ripped off from CLOS. A
 great explanation of them can be found by following this link.
 
 L<http://www.gigamonkeys.com/book/object-reorientation-generic-functions.html>
 
 =back
 
-=head1 AUTHORS
-
-Stevan Little E<lt>stevan@iinteractive.comE<gt>
-
-Dave Rolsky E<lt>autarch@urth.orgE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2006-2009 by Infinity Interactive, Inc.
-
-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 $point = Point->new( x => 1, y => 2 );
@@ -250,15 +236,21 @@ is( $point->y, 2, '... got the right value for y' );
 $point->y(10);
 is( $point->y, 10, '... got the right (changed) value for y' );
 
-dies_ok {
-    $point->y('Foo');
-}
-'... cannot assign a non-Int to y';
+isnt(
+    exception {
+        $point->y('Foo');
+    },
+    undef,
+    '... cannot assign a non-Int to y'
+);
 
-dies_ok {
-    Point->new();
-}
-'... must provide required attributes to new';
+isnt(
+    exception {
+        Point->new();
+    },
+    undef,
+    '... must provide required attributes to new'
+);
 
 $point->clear();
 
@@ -267,20 +259,29 @@ is( $point->y, 0, '... got the right (cleared) value for y' );
 
 # check the type constraints on the constructor
 
-lives_ok {
-    Point->new( x => 0, y => 0 );
-}
-'... can assign a 0 to x and y';
+is(
+    exception {
+        Point->new( x => 0, y => 0 );
+    },
+    undef,
+    '... can assign a 0 to x and y'
+);
 
-dies_ok {
-    Point->new( x => 10, y => 'Foo' );
-}
-'... cannot assign a non-Int to y';
+isnt(
+    exception {
+        Point->new( x => 10, y => 'Foo' );
+    },
+    undef,
+    '... cannot assign a non-Int to y'
+);
 
-dies_ok {
-    Point->new( x => 'Foo', y => 10 );
-}
-'... cannot assign a non-Int to x';
+isnt(
+    exception {
+        Point->new( x => 'Foo', y => 10 );
+    },
+    undef,
+    '... cannot assign a non-Int to x'
+);
 
 # Point3D
 
@@ -299,25 +300,37 @@ is( $point3d->x, 0, '... got the right (cleared) value for x' );
 is( $point3d->y, 0, '... got the right (cleared) value for y' );
 is( $point3d->z, 0, '... got the right (cleared) value for z' );
 
-dies_ok {
-    Point3D->new( x => 10, y => 'Foo', z => 3 );
-}
-'... cannot assign a non-Int to y';
+isnt(
+    exception {
+        Point3D->new( x => 10, y => 'Foo', z => 3 );
+    },
+    undef,
+    '... cannot assign a non-Int to y'
+);
 
-dies_ok {
-    Point3D->new( x => 'Foo', y => 10, z => 3 );
-}
-'... cannot assign a non-Int to x';
+isnt(
+    exception {
+        Point3D->new( x => 'Foo', y => 10, z => 3 );
+    },
+    undef,
+    '... cannot assign a non-Int to x'
+);
 
-dies_ok {
-    Point3D->new( x => 0, y => 10, z => 'Bar' );
-}
-'... cannot assign a non-Int to z';
+isnt(
+    exception {
+        Point3D->new( x => 0, y => 10, z => 'Bar' );
+    },
+    undef,
+    '... cannot assign a non-Int to z'
+);
 
-dies_ok {
-    Point3D->new( x => 10, y => 3 );
-}
-'... z is a required attribute for Point3D';
+isnt(
+    exception {
+        Point3D->new( x => 10, y => 3 );
+    },
+    undef,
+    '... z is a required attribute for Point3D'
+);
 
 # test some class introspection
 
@@ -327,8 +340,10 @@ isa_ok( Point->meta, 'Moose::Meta::Class' );
 can_ok( 'Point3D', 'meta' );
 isa_ok( Point3D->meta, 'Moose::Meta::Class' );
 
-isnt( Point->meta, Point3D->meta,
-    '... they are different metaclasses as well' );
+isnt(
+    Point->meta, Point3D->meta,
+    '... they are different metaclasses as well'
+);
 
 # poke at Point