use Class::MOP::Method::Wrapped;
use Class::MOP::Method::Accessor;
use Class::MOP::Method::Constructor;
-use Class::MOP::Method::Meta;
use Class::MOP::MiniTrait;
use Carp 'confess';
: ref $self;
}
-sub _meta_method_class { 'Class::MOP::Method::Meta' }
-
-sub _add_meta_method {
- my $self = shift;
- my $existing_method = $self->find_method_by_name('meta');
- return if $existing_method
- && $existing_method->isa($self->_meta_method_class);
- $self->add_method(
- 'meta' => $self->_meta_method_class->wrap(
- name => 'meta',
- package_name => $self->name,
- associated_metaclass => $self,
- )
- );
-}
-
sub _new {
my $class = shift;