use Class::MOP::Immutable;
BEGIN {
- *IS_RUNNING_ON_5_10 = ($] < 5.009_005)
+ *IS_RUNNING_ON_5_10 = ($] < 5.009_005)
? sub () { 0 }
- : sub () { 1 };
+ : sub () { 1 };
sub HAVE_ISAREV () {
- warn "Class::MOP::HAVE_ISAREV is deprecated and will be removed in a future release. It has always returned 1 anyway.";
+ Carp::cluck("Class::MOP::HAVE_ISAREV is deprecated and will be removed in a future release. It has always returned 1 anyway.");
return 1;
}
*check_package_cache_flag = \&mro::get_pkg_gen;
}
-our $VERSION = '0.79';
+our $VERSION = '0.80_01';
our $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
-our $AUTHORITY = 'cpan:STEVAN';
+our $AUTHORITY = 'cpan:STEVAN';
require XSLoader;
XSLoader::load( __PACKAGE__, $XS_VERSION );
# This handles instances as well as class names
sub class_of {
+ return unless defined $_[0];
my $class = blessed($_[0]) || $_[0];
return $METAS{$class};
}
# We need to add in the meta-attributes here so that
# any subclass of Class::MOP::* will be able to
-# inherit them using &construct_instance
+# inherit them using _construct_instance
## --------------------------------------------------------
## Class::MOP::Package
# we don't actually need to tie the knot with
# Class::MOP::Class here, it is actually handled
# within Class::MOP::Class itself in the
-# construct_class_instance method.
+# _construct_class_instance method.
## --------------------------------------------------------
## Class::MOP::Attribute
allows us to take advantage of new 5.10 features and stay backwards
compatible.
-=item I<Class::MOP::HAVE_ISAREV>
-
-Whether or not the L<mro> pragma provides C<get_isarev>, a much faster
-way to get all the subclasses of a certain class.
-
=back
=head2 Utility functions