use strict;
use warnings;
-use Test::More tests => 115;
+use Test::More tests => 126;
use Test::Exception;
BEGIN {
use_ok('Class::MOP::Class');
}
+{
+ my $class = Class::MOP::Class->initialize('Foo');
+ is($class->meta, Class::MOP::Class->meta, '... instance and class both lead to the same meta');
+}
+
my $meta = Class::MOP::Class->meta();
isa_ok($meta, 'Class::MOP::Class');
superclasses class_precedence_list
- has_method get_method add_method remove_method
- get_method_list compute_all_applicable_methods find_all_methods_by_name
+ has_method get_method add_method remove_method alias_method
+ get_method_list compute_all_applicable_methods
+ find_all_methods_by_name find_next_method_by_name
+ add_before_method_modifier add_after_method_modifier add_around_method_modifier
+
has_attribute get_attribute add_attribute remove_attribute
get_attribute_list get_attribute_map compute_all_applicable_attributes