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'));
25 throws_ok { My::Class->new(name => '') } qr/^Attribute \(name\) does not pass the type constraint because: The string is empty!/;