Commit | Line | Data |
b20f7ca9 |
1 | #!perl\r |
2 | \r |
3 | use strict; |
4 | use warnings; |
5 | use Test::More tests => 5;\r |
6 | \r |
7 | use Mouse::Util::TypeConstraints;\r |
8 | |
9 | my $z = Mouse::Util::TypeConstraints::find_or_create_isa_type_constraint('My::New::Class | Str'); |
10 | \r |
11 | #diag $z->dump;\r |
12 | |
13 | eval q{ |
14 | package My::New::Class; |
15 | use Mouse; |
16 | package My::New::DerivedClass; |
17 | use Mouse; |
18 | extends 'My::New::Class'; |
19 | }; |
20 | |
21 | ok $z->check(My::New::Class->new); |
22 | ok $z->check(My::New::DerivedClass->new); |
23 | ok $z->check('Foo'); |
24 | ok!$z->check(undef); |
25 | ok!$z->check(bless {}, 'Foo'); |
26 | |