line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Proc::tored::Pool::Types; |
2
|
|
|
|
|
|
|
# ABSTRACT: Type constraints used by Proc::tored::Pool |
3
|
|
|
|
|
|
|
$Proc::tored::Pool::Types::VERSION = '0.07'; |
4
|
29
|
|
|
29
|
|
129
|
use strict; |
|
29
|
|
|
|
|
42
|
|
|
29
|
|
|
|
|
700
|
|
5
|
29
|
|
|
29
|
|
126
|
use warnings; |
|
29
|
|
|
|
|
29
|
|
|
29
|
|
|
|
|
772
|
|
6
|
29
|
|
|
29
|
|
116
|
use Proc::tored::Pool::Constants ':events'; |
|
29
|
|
|
|
|
42
|
|
|
29
|
|
|
|
|
2535
|
|
7
|
29
|
|
|
29
|
|
126
|
use Types::Standard -types; |
|
29
|
|
|
|
|
42
|
|
|
29
|
|
|
|
|
542
|
|
8
|
29
|
|
|
29
|
|
94170
|
use Type::Utils -all; |
|
29
|
|
|
|
|
58
|
|
|
29
|
|
|
|
|
332
|
|
9
|
29
|
|
|
|
|
174
|
use Type::Library -base, |
10
|
|
|
|
|
|
|
-declare => qw( |
11
|
|
|
|
|
|
|
NonEmptyStr |
12
|
|
|
|
|
|
|
Dir |
13
|
|
|
|
|
|
|
Task |
14
|
|
|
|
|
|
|
PosInt |
15
|
|
|
|
|
|
|
Event |
16
|
29
|
|
|
29
|
|
65104
|
); |
|
29
|
|
|
|
|
29
|
|
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
declare NonEmptyStr, as Str, where { $_ =~ /\S/ }; |
20
|
|
|
|
|
|
|
declare Dir, as NonEmptyStr, where { -d $_ }; |
21
|
|
|
|
|
|
|
declare PosInt, as Int, where { $_ > 0 }; |
22
|
|
|
|
|
|
|
declare Event, as Enum[assignment, success, failure]; |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
1; |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
__END__ |