[gitmo/Moo.git] / t / undef-bug.t

use Test::More tests => 1;

package Foo;
use Moo;

has this => (is => 'ro');

package main;

my $foo = Foo->new;

ok not(exists($foo->{this})),
    "new objects don't have undef attributes";
Commit	Line	Data
0689a5ab	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";