Minimal test case for https://rt.cpan.org/Public/Bug/Display.html?id=89249

gistfile1.txt

use strict;
use warnings;

use Test::More;
use Test::Fatal;

use Class::MOP;
use Class::MOP::Class;

{
    package Foo;

    use constant FOO_CONSTANT => 'Foo-CONSTANT';
}

my $Foo = Class::MOP::Class->initialize('Foo');

ok( $Foo->has_method('FOO_CONSTANT'),
    'This succeeds when it is called before adding the bork method' );

my $bork_blessed = bless sub { }, 'Non::Meta::Class';
$Foo->add_method('bork', $bork_blessed);

ok( $Foo->has_method('FOO_CONSTANT'),
    q{... this fails with the error message Can't locate object method "body" via package "Non::Meta::Class"} );

done_testing;