use Test::Exception;
BEGIN {
+ use_ok('Class::MOP');
use_ok('Class::MOP::Class');
}
ok(!$meta->has_method($non_method_name), '... NOT Class::MOP::Class->has_method(' . $non_method_name . ')');
}
+foreach my $attribute_name (
+ '$:pkg', '%:attrs'
+ ) {
+ ok($meta->has_attribute($attribute_name), '... Class::MOP::Class->has_attribute(' . $attribute_name . ')');
+ isa_ok($meta->get_attribute($attribute_name), 'Class::MOP::Attribute');
+}
+
is($meta->name, 'Class::MOP::Class', '... Class::MOP::Class->name');
is($meta->version, $Class::MOP::Class::VERSION, '... Class::MOP::Class->version');