| line |
true |
false |
branch |
|
216
|
18 |
89 |
if (scalar @args == 2 and defined $args[0]) { } |
|
|
50 |
39 |
elsif (scalar @args == 4 and defined $args[0] and defined $args[2]) { } |
|
|
21 |
18 |
elsif (scalar @args > 4) { } |
|
217
|
15 |
3 |
if exists $hash_keys{$args[0]} |
|
219
|
49 |
1 |
if exists $hash_keys{$args[0]} and exists $hash_keys{$args[2]} |
|
225
|
85 |
22 |
if ($is_hash) { } |
|
228
|
1 |
21 |
if scalar @args > 3 |
|
229
|
2 |
20 |
if scalar @args > 2 |
|
230
|
6 |
16 |
if scalar @args > 1 |
|
231
|
7 |
15 |
if scalar @args > 0 |
|
234
|
1 |
106 |
if (exists $args{'copy'}) |
|
235
|
1 |
0 |
if ($class->is_obj($args{'copy'})) { } |
|
251
|
66 |
41 |
if (exists $args{'address'}) { } |
|
277
|
5 |
3 |
wantarray ? : |
|
310
|
64 |
122 |
unless @args |
|
325
|
58 |
50 |
unless @args |
|
326
|
4 |
46 |
if exists $self->{'cached_address'} |
|
341
|
46 |
47 |
unless @args |
|
342
|
1 |
46 |
if exists $self->{'cached_address'} |
|
366
|
81 |
31 |
if (@args) { } |
|
367
|
76 |
5 |
if defined $args[0] |
|
368
|
7 |
74 |
unless (defined $user and defined $host) |
|
375
|
19 |
12 |
if exists $self->{'cached_address'} |
|
379
|
82 |
11 |
if (defined $user and defined $host and length $user and length $host) { } |
|
400
|
54 |
127 |
unless @args |
|
401
|
97 |
30 |
unless defined $args[0] |
|
406
|
17 |
16 |
if $_ eq '(' |
|
407
|
16 |
17 |
if $_ eq ')' |
|
408
|
2 |
31 |
if $count < 0 |
|
410
|
5 |
25 |
if $count != 0 |
|
428
|
20 |
14 |
if defined $phrase and length $phrase |
|
430
|
2 |
12 |
if defined $comment and length $comment |
|
432
|
8 |
4 |
if defined $user and length $user |
|
456
|
5 |
0 |
unless defined $STRINGIFY |
|
459
|
0 |
0 |
unless defined $method |