Wrote meta recipe 4, a very simple metaclss example.

I also planned out several more meta recipes. Recipe 5 is pending on
merging the metaclass traits branch. Recipe 6 is coming soon. Recipe 7
will come at some point, but needs to come after metaclasses and
sugar/importing, since a new meta-instance probably both a new
metaclass and a Moose.pm-like interface.

diff --git a/lib/Moose/Cookbook.pod b/lib/Moose/Cookbook.pod
index cd089e4..990961d 100644 (file)
--- a/lib/Moose/Cookbook.pod
+++ b/lib/Moose/Cookbook.pod
@@ -118,11 +118,20 @@ functionality. However, attributes can only have one metaclass.
 Applying roles to the attribute metaclass lets you provide
 composable attribute functionality.
 
-=item L<Moose::Cookbook::Meta::Recipe4> - The meta-instance example (TODO)
+=item L<Moose::Cookbook::Meta::Recipe4> - Adding a "table" attribute to the metaclass
+
+If you want to store more information about your classes, you'll have
+to extend C<Moose::Meta::Class>. Doing so is simple, but you'll
+probably also want to provide some sugar, so see
+L<Moose::Cookbook::Meta::Recipe6> as well.
+
+=item L<Moose::Cookbook::Meta::Recipe5> - The "table" attribute implemented via a metaclass trait
 
 I<abstract goes here>
 
-=item L<Moose::Cookbook::Meta::Recipe5> - The meta-class example (TODO)
+=item L<Moose::Cookbook::Meta::Recipe6> - Acting like Moose.pm and providing sugar Moose-style
+
+=item L<Moose::Cookbook::Meta::Recipe7> - I<meta-instance> (TODO)
 
 I<abstract goes here>
 

diff --git a/lib/Moose/Cookbook/Meta/Recipe4.pod b/lib/Moose/Cookbook/Meta/Recipe4.pod
new file mode 100644 (file)
index 0000000..c7231bf
--- /dev/null
+++ b/lib/Moose/Cookbook/Meta/Recipe4.pod
@@ -0,0 +1,64 @@
+
+=pod
+
+=head1 NAME
+
+Moose::Cookbook::Meta::Recipe4 - Adding a "table" attribute to the metaclass
+
+=head1 SYNOPSIS
+
+  package MyApp::Meta::Class;
+  use Moose;
+  extends 'Moose::Meta::Class';
+
+  has table =>
+      ( is       => 'rw',
+        isa      => 'Str',
+      );
+
+=head1 DESCRIPTION
+
+In this recipe, we'll create a new metaclass which has a "table"
+attribute. This metaclass is for classes associated with a DBMS table,
+as one might do for an ORM.
+
+In this example, the table name is just a string, but in a real ORM
+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::Meta::Recipe5>, which shows how to make a module
+like C<Moose.pm> itself, with sugar like C<has_table()>.
+
+=head2 Using It
+
+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:
+
+  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.
+
+=head1 SEE ALSO
+
+L<Moose::Cookbook::Meta::Recipe5> - The "table" attribute implemented
+via a metaclass trait
+
+=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