| line |
true |
false |
branch |
|
12
|
1 |
15 |
if (not defined $options) { } |
|
|
1 |
14 |
elsif (not is_hash_ref($options)) { } |
|
38
|
2 |
13 |
unless defined $$options{'host'} and is_string($$options{'host'}) |
|
40
|
2 |
11 |
unless defined $$options{'port'} and is_integer($$options{'port'}) |
|
44
|
1 |
10 |
if defined $$options{'timeout'} and not is_integer($$options{'timeout'}) |
|
48
|
1 |
9 |
if ($$options{'auth_type'} and none sub {
$$options{'auth_type'} eq $_;
}
, @supported_auth_type) |
|
52
|
1 |
8 |
if $$options{'auth_user'} and not is_string($$options{'auth_user'}) |
|
53
|
1 |
7 |
if $$options{'auth_passwd'} and not is_string($$options{'auth_passwd'}) |
|
54
|
1 |
6 |
if $$options{'inet_aton'} and not is_code_ref($$options{'inet_aton'}) |