*check_package_cache_flag = \&mro::get_pkg_gen;
}
-our $VERSION = '0.67';
+our $VERSION = '0.70_01';
our $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
}
}
- return get_metaclass_by_name($found) || $found
- if $found;
+ return $found if $found;
confess join(
"\n",
map {
sprintf(
- "Could not load class (%s) because: %s", $_,
+ "Could not load class (%s) because : %s", $_,
$exceptions{$_}
)
} @classes
}
sub load_class {
- load_first_existing_class($_[0]);
+ my $class = load_first_existing_class($_[0]);
+ return get_metaclass_by_name($class) || $class;
}
sub _is_valid_class_name {
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's
-metaclass. If none of the classes can be loaded, it will throw an
-exception.
+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.
=back