$meta = $class->meta();
(blessed($meta) && $meta->isa('Moose::Meta::Class'))
|| confess "Whoops, not møøsey enough";
- ($meta->attribute_metaclass->isa('Moose::Meta::Attribute'))
- || confess "Attribute metaclass must be a subclass of Moose::Meta::Attribute";
}
else {
$meta = Moose::Meta::Class->initialize($class);
my ($name, %options) = @_;
if ($options{metaclass}) {
_load_all_classes($options{metaclass});
- ($options{metaclass}->isa('Moose::Meta::Attribute'))
- || confess "Custom attribute metaclass must be a subclass of Moose::Meta::Attribute";
$meta->add_attribute($options{metaclass}->new($name, %options));
}
else {