X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_self_introspection.t;h=ff2e2c596882fbb910bc57f70d27298b3779d835;hb=d004c8d565f9b314da7652e9368aeb4587ffaa3d;hp=7c0a962448feb1a968f6b9445e1d864623099efe;hpb=78902d1df967dfe480294acbeb65e2e2bae4439e;p=gitmo%2FClass-MOP.git diff --git a/t/010_self_introspection.t b/t/010_self_introspection.t index 7c0a962..ff2e2c5 100644 --- a/t/010_self_introspection.t +++ b/t/010_self_introspection.t @@ -2,7 +2,7 @@ use strict; use warnings; use Test::More; -use Test::Exception; +use Test::Fatal; use Class::MOP; use Class::MOP::Class; @@ -55,16 +55,19 @@ my @class_mop_class_methods = qw( initialize reinitialize create - update_package_cache_flag - reset_package_cache_flag - create_anon_class is_anon_class instance_metaclass get_meta_instance - inline_create_instance - inline_rebless_instance + _inline_create_instance + _inline_rebless_instance + _inline_get_mop_slot _inline_set_mop_slot _inline_clear_mop_slot create_meta_instance _create_meta_instance new_object clone_object + _inline_new_object _inline_default_value _inline_preserve_weak_metaclasses + _inline_slot_initializer _inline_extra_init _inline_fallback_constructor + _inline_generate_instance _inline_params _inline_slot_initializers + _inline_init_attr_from_constructor _inline_init_attr_from_default + _generate_fallback_constructor construct_instance _construct_instance construct_class_instance _construct_class_instance clone_instance _clone_instance @@ -87,7 +90,7 @@ my @class_mop_class_methods = qw( invalidate_meta_instances invalidate_meta_instance superclasses subclasses direct_subclasses class_precedence_list - linearized_isa _superclasses_updated + linearized_isa _superclasses_updated _superclass_metas alias_method get_all_method_names get_all_methods compute_all_applicable_methods find_method_by_name find_all_methods_by_name find_next_method_by_name