line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package DigitalOcean::Type::Network; |
2
|
1
|
|
|
1
|
|
4
|
use Mouse::Util::TypeConstraints; |
|
1
|
|
|
|
|
0
|
|
|
1
|
|
|
|
|
6
|
|
3
|
1
|
|
|
1
|
|
326
|
use DigitalOcean::Network; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
72
|
|
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
subtype 'ArrayRefOfNetworks' => as 'ArrayRef[DigitalOcean::Network]'; |
6
|
|
|
|
|
|
|
subtype 'CoercedArrayRefOfNetworks' => as 'ArrayRefOfNetworks'; |
7
|
|
|
|
|
|
|
coerce 'CoercedArrayRefOfNetworks' |
8
|
|
|
|
|
|
|
=> from 'ArrayRef[HashRef]' |
9
|
|
|
|
|
|
|
=> via { [map { DigitalOcean::Network->new( %{$_} ) } @{$_}] }; |
10
|
|
|
|
|
|
|
|
11
|
1
|
|
|
1
|
|
4
|
no Mouse::Util::TypeConstraints; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
5
|
|
12
|
|
|
|
|
|
|
1; |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
__END__ |