Commit | Line | Data |
f235df49 |
1 | package DecoratorLibrary; |
2 | |
3 | use MooseX::Types::Moose qw( Str ArrayRef HashRef Int ); |
4 | use MooseX::Types |
5 | -declare => [qw( |
6 | MyArrayRefBase |
7 | MyArrayRefInt01 |
8 | MyArrayRefInt02 |
9 | MyHashRefOfInts |
10 | MyHashRefOfStr |
11 | StrOrArrayRef |
12 | AtLeastOneInt |
13 | Jobs |
14 | SubOfMyArrayRefInt01 |
15 | BiggerInt |
16 | )]; |
17 | |
18 | subtype MyArrayRefBase, |
19 | as ArrayRef; |
20 | |
21 | coerce MyArrayRefBase, |
22 | from Str, |
23 | via {[split(',', $_)]}; |
24 | |
25 | subtype MyArrayRefInt01, |
26 | as ArrayRef[Int]; |
27 | |
28 | subtype BiggerInt, |
29 | as Int, |
30 | where {$_>10}; |
31 | |
32 | subtype SubOfMyArrayRefInt01, |
33 | as MyArrayRefInt01[BiggerInt]; |
34 | |
35 | coerce MyArrayRefInt01, |
36 | from Str, |
37 | via {[split('\.',$_)]}, |
38 | from HashRef, |
39 | via {[sort values(%$_)]}; |
40 | |
41 | subtype MyArrayRefInt02, |
42 | as MyArrayRefBase[Int]; |
43 | |
44 | subtype MyHashRefOfInts, |
45 | as HashRef[Int]; |
46 | |
47 | subtype MyHashRefOfStr, |
48 | as HashRef[Str]; |
49 | |
50 | coerce MyArrayRefInt02, |
51 | from Str, |
52 | via {[split(':',$_)]}, |
53 | from MyHashRefOfInts, |
54 | via {[sort values(%$_)]}, |
55 | from MyHashRefOfStr, |
56 | via {[ sort map { length $_ } values(%$_) ]}, |
57 | from HashRef[ArrayRef], |
58 | via {[ sort map { @$_ } values(%$_) ]}; |
59 | |
60 | subtype StrOrArrayRef, |
61 | as Str|ArrayRef; |
62 | |
63 | subtype AtLeastOneInt, |
64 | as ArrayRef[Int], |
65 | where { @$_ > 0 }; |
66 | |
67 | enum Jobs, |
68 | (qw/Programming Teaching Banking/); |
69 | |
70 | 1; |