X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=f6be4ea44e17f027d55bdcc0e9405ce872e62e2c;hp=cd6297a83f1fe3e6b623848dcc9edb8ec2851b3d;hb=01f892fafd4633960960c120650e32ecf549e369;hpb=637d4f17e6965551c032a3115dcbbb4d8e01fbf5 diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm index cd6297a..f6be4ea 100644 --- a/lib/Mouse/Util.pm +++ b/lib/Mouse/Util.pm @@ -74,12 +74,16 @@ use constant _MOUSE_VERBOSE => !!$ENV{MOUSE_VERBOSE}; # it must be 'require', not 'use', because Mouse::Meta::Module depends on Mouse::Util require Mouse::Meta::Module; # for the entities of metaclass cache utilities -BEGIN { +# aliases +{ *class_of = \&Mouse::Meta::Module::_class_of; *get_metaclass_by_name = \&Mouse::Meta::Module::_get_metaclass_by_name; *get_all_metaclass_instances = \&Mouse::Meta::Module::_get_all_metaclass_instances; *get_all_metaclass_names = \&Mouse::Meta::Module::_get_all_metaclass_names; + *Mouse::load_class = \&load_class; + *Mouse::is_class_loaded = \&is_class_loaded; + # is-a predicates #generate_isa_predicate_for('Mouse::Meta::TypeConstraint' => 'is_a_type_constraint'); #generate_isa_predicate_for('Mouse::Meta::Class' => 'is_a_metaclass');