nobody is really working on xs accessors anymore

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

diff --git a/lib/Moose/Cookbook/Meta/Recipe4.pod b/lib/Moose/Cookbook/Meta/Recipe4.pod
index a1ec8aa..3e5b3e3 100644 (file)
--- a/lib/Moose/Cookbook/Meta/Recipe4.pod
+++ b/lib/Moose/Cookbook/Meta/Recipe4.pod
@@ -1,9 +1,11 @@
+package Moose::Cookbook::Meta::Recipe4;
 
-=pod
+# ABSTRACT: Adding a "table" attribute to the metaclass
+
+__END__
 
-=head1 NAME
 
-Moose::Cookbook::Meta::Recipe4 - Adding a "table" attribute to the metaclass
+=pod
 
 =head1 SYNOPSIS
 
@@ -27,21 +29,32 @@ the table might be an object describing the table.
 
 =head1 THE METACLASS
 
-The metaclass example really is as simple as the one in the
-synopsis. The trick is getting your classes to use this metaclass, and
-providing some sort of sugar for declaring the table. This is covered
-in L<Moose::Cookbook::Extending::Recipe2>, which shows how to make a
+This really is as simple as the recipe L</SYNOPSIS> shows. The trick
+is getting your classes to use this metaclass, and providing some sort
+of sugar for declaring the table. This is covered in
+L<Moose::Cookbook::Extending::Recipe2>, which shows how to make a
 module like C<Moose.pm> itself, with sugar like C<has_table()>.
 
 =head2 Using this Metaclass in Practice
 
-Using this new "table" attribute is quite simple. Let's say we have a
-class named C<MyApp::User>, we could simply write the following:
+Accessing this new C<table> attribute is quite simple. Given a class
+named C<MyApp::User>, we could simply write the following:
 
   my $table = MyApp::User->meta->table;
 
-As long as MyApp::User has arranged to use C<MyApp::Meta::Class> as
-its metaclass, this method call just works.
+As long as C<MyApp::User> has arranged to use C<MyApp::Meta::Class> as
+its metaclass, this method call just works. If we want to be more
+careful, we can check the metaclass's class:
+
+  $table = MyApp::User->meta->table
+      if MyApp::User->meta->isa('MyApp::Meta::Class');
+
+=head1 CONCLUSION
+
+Creating custom metaclass is trivial. Using it is a little harder, and
+is covered in other recipes. We will also talk about applying traits
+to a class metaclass, which is a more flexible and cooperative
+implementation.
 
 =head1 SEE ALSO
 
@@ -51,17 +64,4 @@ as a metaclass trait
 L<Moose::Cookbook::Extending::Recipe2> - Acting like Moose.pm and
 providing sugar Moose-style
 
-=head1 AUTHOR
-
-Dave Rolsky E<lt>autarch@urth.orgE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2006-2008 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.
-
 =pod