4 use Test::More tests => 7;
7 use Test::NoWarnings 1.04 ':early';
12 use MooseX::UndefTolerant;
25 is(exception { my $foo = Foo->new }, undef, 'constructed with no args');
27 is(exception { my $foo = Foo->new(bar => undef) }, undef, 'constructed with undef value');
29 is(exception { my $foo = Foo->new(bar => 1234) }, undef, 'constructed with defined value');