projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
initialize the metaclass when calling ->does
[gitmo/Moose.git]
/
t
/
immutable
/
immutable_meta_class.t
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
6
use Test::More;
7
use Test::Fatal;
8
9
10
{
11
package My::Meta;
12
13
use Moose;
14
15
extends 'Moose::Meta::Class';
16
17
has 'meta_size' => (
18
is => 'rw',
19
isa => 'Int',
20
);
21
}
22
23
is( exception {
24
My::Meta->meta()->make_immutable(debug => 0)
25
}, undef, '... can make a meta class immutable' );
26
27
done_testing;