From: Dave Rolsky <autarch@houseabsolute.urth.org>
Date: Sat, 14 Mar 2009 17:15:41 +0000 (-0500)
Subject: Make get_code_info "public"(er)
X-Git-Tag: 0.78_01~52
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cdac22cccc8e34a9cff1b4571df591bf3e7db72d;p=gitmo%2FClass-MOP.git

Make get_code_info "public"(er)
---

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index a39fefe..b6dfca4 100644
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -860,6 +860,13 @@ best it can if the C<$class_name> is loaded, it is probably correct
 about 99% of the time, but it can be fooled into reporting false
 positives.
 
+=item B<Class::MOP::get_code_info($code)>
+
+This function returns two values, the name of the package the C<$code>
+is from and the name of the C<$code> itself. This is used by several
+elements of the MOP to detemine where a given C<$code> reference is
+from.
+
 =item B<Class::MOP::check_package_cache_flag($pkg)>
 
 B<NOTE: DO NOT USE THIS FUNCTION, IT IS FOR INTERNAL USE ONLY!>
@@ -871,15 +878,6 @@ 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::get_code_info($code)>
-
-B<NOTE: DO NOT USE THIS FUNCTION, IT IS FOR INTERNAL USE ONLY!>
-
-This function returns two values, the name of the package the C<$code>
-is from and the name of the C<$code> itself. This is used by several
-elements of the MOP to detemine where a given C<$code> reference is
-from.
-
 =item B<Class::MOP::load_first_existing_class(@class_names)>
 
 B<NOTE: DO NOT USE THIS FUNCTION, IT IS FOR INTERNAL USE ONLY!>