t/dds_bug.t

   1 use strict;
   2 use warnings FATAL => 'all';
   3 use lib 't/lib';
   4 use Test::More;
   5 use Data::Dump::Streamer;
   6
   7 sub dump_meta {
   8   my $meta = $_[0];
   9   local $meta->{methods}{meta};
  10   Dump($meta);
  11 }
  12
  13 {
  14     package One;
  15     use Moose;
  16
  17     __PACKAGE__->meta->make_immutable;
  18 }
  19 dump_meta(One->meta);
  20 {
  21     package Three;
  22     use Moose;
  23     use Test::Exception;
  24
  25     sub BUILD {}
  26
  27     lives_ok { __PACKAGE__->meta->make_immutable };
  28 }
  29
  30 done_testing;