1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
use strict;
use warnings;
use Test::More tests => 12;
use MouseX::Types::Mouse qw(is_Int is_ArrayRef);
BEGIN{
package MyTypes;
use MouseX::Types -declare => ['ArrayRef2d'];
subtype ArrayRef2d, as 'ArrayRef[ArrayRef]';
}
MyTypes->import('is_ArrayRef2d');
ok is_Int(10);
ok is_Int('42');
ok!is_Int(3.14);
ok!is_Int(undef);
ok is_ArrayRef([]);
ok is_ArrayRef([10]);
ok!is_ArrayRef(undef);
ok!is_ArrayRef({});
ok is_ArrayRef2d([[]]);
ok!is_ArrayRef2d([10]);
ok!is_ArrayRef2d(undef);
ok!is_ArrayRef2d({});
|
