From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 6 May 2011 21:42:21 +0000 (-0500)
Subject: if these are internal use only, why are they in the public docs
X-Git-Tag: 2.0003~45
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3aa014207dd82c60ea2a65b89f7b24790ab0b486;p=gitmo%2FMoose.git

if these are internal use only, why are they in the public docs
---

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index 6ee4ec3..e9bfbd5 100644
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -926,18 +926,6 @@ See L<Class::MOP::Instance> for more details.
 
 Note that this module does not export any constants or functions.
 
-=head2 Constants
-
-=over 4
-
-=item I<Class::MOP::IS_RUNNING_ON_5_10>
-
-We set this constant depending on what version perl we are on, this
-allows us to take advantage of new 5.10 features and stay backwards
-compatible.
-
-=back
-
 =head2 Utility functions
 
 Note that these are all called as B<functions, not methods>.
@@ -992,36 +980,6 @@ This will return the metaclass of the given instance or class name.  If the
 class lacks a metaclass, no metaclass will be initialized, and C<undef> will be
 returned.
 
-=item B<Class::MOP::check_package_cache_flag($pkg)>
-
-B<NOTE: DO NOT USE THIS FUNCTION, IT IS FOR INTERNAL USE ONLY!>
-
-This will return an integer that is managed by L<Class::MOP::Class> to
-determine if a module's symbol table has been altered.
-
-In Perl 5.10 or greater, this flag is package specific. However in
-versions prior to 5.10, this will use the C<PL_sub_generation>
-variable which is not package specific.
-
-=item B<Class::MOP::load_first_existing_class(@class_names)>
-
-=item B<Class::MOP::load_first_existing_class($classA, \%optionsA?, $classB, ...)>
-
-B<NOTE: DO NOT USE THIS FUNCTION, IT IS FOR INTERNAL USE ONLY!>
-
-Given a list of class names, this function will attempt to load each
-one in turn.
-
-If it finds a class it can load, it will return that class' name.  If
-none of the classes can be loaded, it will throw an exception.
-
-Additionally, you can pass a hash reference with options after each
-class name. Currently, only C<-version> is recognized and will ensure
-that the loaded class has at least the required version. If the class
-version is not sufficient, an exception will be raised.
-
-See also L</Class Loading Options>.
-
 =back
 
 =head2 Metaclass cache functions
diff --git a/xt/release/pod-coverage.t b/xt/release/pod-coverage.t
index b0548e5..c9e4eb1 100644
--- a/xt/release/pod-coverage.t
+++ b/xt/release/pod-coverage.t
@@ -19,8 +19,11 @@ my %trustme = (
     'Class::MOP' => [
         'DEBUG_NO_META',
         'HAVE_ISAREV',
+        'IS_RUNNING_ON_5_10',
         'subname',
         'in_global_destruction',
+        'check_package_cache_flag',
+        'load_first_existing_class',
     ],
     'Class::MOP::Attribute' => ['process_accessors'],
     'Class::MOP::Class'     => [