t/300_immutable/003_immutable_meta_class.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 1;
   7 use Test::Exception;
   8
   9
  10
  11 {
  12     package My::Meta;
  13
  14     use Moose;
  15
  16     extends 'Moose::Meta::Class';
  17
  18     has 'meta_size' => (
  19         is  => 'rw',
  20         isa => 'Int',
  21     );
  22 }
  23
  24 lives_ok {
  25     My::Meta->meta()->make_immutable(debug => 0)
  26 } '... can make a meta class immutable';
  27