projects
/
gitmo/Moo.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
better diagnostics when bad parameters given to has
[gitmo/Moo.git]
/
xt
/
moo-sification.t
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;