projects
/
gitmo/Class-MOP.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
lots of documentation changes, some refactoring too
[gitmo/Class-MOP.git]
/
t
/
071_immutable_w_custom_metaclass.t
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
6
use Test::More tests => 2;
7
use Test::Exception;
8
9
BEGIN {
10
use_ok('Class::MOP');
11
}
12
13
{
14
package Meta::Baz;
15
use strict;
16
use warnings;
17
use base 'Class::MOP::Class';
18
}
19
20
{
21
package Bar;
22
23
use strict;
24
use warnings;
25
use metaclass;
26
27
__PACKAGE__->meta->make_immutable;
28
29
package Baz;
30
31
use strict;
32
use warnings;
33
use metaclass 'Meta::Baz';
34
35
::lives_ok {
36
Baz->meta->superclasses('Bar');
37
} '... we survive the metaclass incompatability test';
38
}
39
40
41