t/undef-bug.t

   1 use Test::More tests => 1;
   2
   3 package Foo;
   4 use Moo;
   5
   6 has this => (is => 'ro');
   7
   8 package main;
   9
  10 my $foo = Foo->new;
  11
  12 ok not(exists($foo->{this})),
  13     "new objects don't have undef attributes";