| blib/lib/Socket/More.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 53 | 64 | 82.8 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 498 | 366 | 0 | 118 | $fam == 1 and $interface->{'name'} eq "unix" |
| 366 | 46 | 72 | $fam == 1 and $interface->{'name'} eq "unix" and defined $_->{'path'} | |
| 46 | 54 | 18 | $fam == 1 and $interface->{'name'} eq "unix" and defined $_->{'path'} and not defined $_->{'port'} | |
| 505 | 100 | 108 | 258 | $fam == 2 || $fam == 10 and defined $_->{'port'} |
| 208 | 162 | 96 | $fam == 2 || $fam == 10 and defined $_->{'port'} and not defined $_->{'path'} | |
| 270 | 0 | 96 | $fam == 2 || $fam == 10 and defined $_->{'port'} and not defined $_->{'path'} and $_->{'interface'} ne "unix" | |
| 653 | 1 | 0 | 0 | $spec{'address'}[0] =~ s/^\[//u and $spec{'address'}[0] =~ s/\]$//u |
| 773 | 0 | 0 | 2 | defined $_->{'port'} and $_->{'port'} == 0 |
| 774 | 1 | 1 | 0 | $shared and defined $port |
| line | l | !l | condition |
|---|---|---|---|
| 259 | 30 | 1 | $_[3] // 0 |
| 30 | 1 | $_[2] // 0 | |
| 321 | 4 | 11 | $spec->{'interface'} // ".*" |
| 329 | 7 | 8 | $spec->{'socktype'} // [1, 2] |
| 330 | 2 | 13 | $spec->{'protocol'} // 0 |
| 333 | 10 | 5 | $spec->{'family'} // [2, 10, 1] |
| 336 | 13 | 2 | $spec->{'port'} // [] |
| 337 | 6 | 9 | $spec->{'path'} // [] |
| 390 | 2 | 13 | delete $spec->{'flags'} // 0 |
| 392 | 7 | 8 | $address //= ".*" |
| 393 | 1 | 14 | $group //= ".*" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 381 | 0 | 0 | 15 | @{$r->{'port'}} == 0 or @{$r->{'path'}} == 0 |
| 505 | 246 | 120 | 100 | $fam == 2 || $fam == 10 |
| 521 | 0 | 60 | 5 | not exists $_->{'address'} or $_->{'address'} eq ".*" |
| 547 | 0 | 30 | 1 | not exists $_->{'address'} or $_->{'address'} eq ".*" |
| 615 | 92 | 28 | 128 | $Socket::More::a->{'interface'} cmp $Socket::More::b->{'interface'} or $Socket::More::a->{'family'} cmp $Socket::More::b->{'family'} |