use MooseX::Types -declare => [qw(MyString)];
subtype MyString,
- as 'Str',
+ as Str,
where { $_=~m/abc/};
has 'dict' => (is=>'rw', isa=>Dict[name=>Str, age=>Int]);
throws_ok sub {
$record->dict_with_tuple_with_union({key1=>1, key2=>['World',2]});
}, qr/Attribute \(dict_with_tuple_with_union\) does not pass the type constraint/
- => 'Threw error on bad constraint';
\ No newline at end of file
+ => 'Threw error on bad constraint';