Commit | Line | Data |
---|---|---|
63292971 | 1 | use strictures 1; |
2 | use Test::More; | |
3 | ||
4 | BEGIN { | |
5 | package Foo; | |
6 | use Moo; | |
7 | has one => (is => 'ro'); | |
8 | } | |
9 | ||
10 | no Moo::sification; | |
11 | use Moose; | |
12 | use Class::MOP; | |
13 | ||
14 | is Class::MOP::get_metaclass_by_name('Foo'), undef, | |
15 | 'no metaclass for Moo class after no Moo::sification'; | |
16 | ||
17 | done_testing; |