t/DynamicMoose/RequireMakeImmutable.run

   1 ## name Makes immutable
   2 ## failures 0
   3 ## cut
   4
   5 package Class;
   6 use Moose;
   7
   8 has attr => (
   9     is => 'rw',
  10 );
  11
  12 __PACKAGE__->meta->make_immutable;
  13
  14 #-----------------------------------------------------------------------------
  15
  16 ## name Does not make immutable
  17 ## failures 1
  18 ## cut
  19
  20 package Class;
  21 use Moose;
  22
  23 has attr => (
  24     is => 'rw',
  25     builder => '_build_attr',
  26 );
  27
  28 #-----------------------------------------------------------------------------
  29
  30 ## name Does not statically make immutable
  31 ## failures 0
  32 ## cut
  33
  34 for (1 .. 5) {
  35     my $class = Class::MOP::Class->create("Foo$_");
  36     my $method = join '_', "make", "immutable";
  37     $class->$method;
  38 }
  39