4 use Test::More tests => 2;
10 use Mouse::Util::TypeConstraints;
14 => where { length $_ }
15 => message { "The string is empty!" };
23 ok(My::Class->new(name => 'foo'));
26 local $TODO = "message is not used";
27 throws_ok { My::Class->new(name => '') } qr/^Attribute \(name\) does not pass the type constraint because: The string is empty!/;