From: Jesse Luehrs 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.0100~162 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a214a1402c43a54e766a8a4021a04b2e3deda6c5;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 for more details. Note that this module does not export any constants or functions. -=head2 Constants - -=over 4 - -=item I - -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. @@ -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 will be returned. -=item B - -B - -This will return an integer that is managed by L 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 -variable which is not package specific. - -=item B - -=item B - -B - -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. - =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' => [