From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 23 Sep 2010 04:50:38 +0000 (-0500)
Subject: docs and changelog
X-Git-Tag: 1.09~40
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=37f3c8751fededef5b4e8401180d5b43da6f90db;p=gitmo%2FClass-MOP.git

docs and changelog
---

diff --git a/Changes b/Changes
index 9fd2a46..2bfa201 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,10 @@
 Revision history for Perl extension Class-MOP.
 
+  [ENHANCEMENTS]
+
+  * It's now possible to tell the metaclass pragma to not install a 'meta'
+    method into classes that use it. (doy)
+
   [OTHER]
 
   * Use get_or_add_package_symbol when we intend for it to autovivify, in
diff --git a/lib/metaclass.pm b/lib/metaclass.pm
index 02bfb5c..756a076 100644
--- a/lib/metaclass.pm
+++ b/lib/metaclass.pm
@@ -97,11 +97,15 @@ metaclass - a pragma for installing and using Class::MOP metaclasses
       'method_metaclass'    => 'MyMethodMetaClass',
   );
 
+  # if we'd rather not install a 'meta' method, we can do this
+  use metaclass no_meta => 1;
+
 =head1 DESCRIPTION
 
 This is a pragma to make it easier to use a specific metaclass
 and a set of custom attribute and method metaclasses. It also
-installs a C<meta> method to your class as well.
+installs a C<meta> method to your class as well, if the
+C<no_meta> option is not specified.
 
 =head1 AUTHORS