use Test::More tests => 26;
use Test::Exception;
+use lib 't/lib';
+use Test::Mouse;
+
BEGIN {
use_ok('Mouse::Util::TypeConstraints');
}
=> via { HTTPHeader->new(hash => $_[0]) };
} 'coercion of anonymous subtype succeeds';
+=pod
+
foreach my $coercion (
find_type_constraint('Header')->coercion,
$anon_type->coercion
) {
-
isa_ok($coercion, 'Mouse::Meta::TypeCoercion');
{
}
}
+=cut
+
subtype 'StrWithTrailingX'
=> as 'Str'
=> where { /X$/ };