| line |
true |
false |
branch |
|
100
|
6 |
13 |
if (/^-?host(?:name)?$/i) { } |
|
|
6 |
7 |
elsif (/^-?port$/i) { } |
|
|
6 |
1 |
elsif (/^-?timeout$/i) { } |
|
|
1 |
0 |
elsif (/^-?retries$/i) { } |
|
127
|
0 |
0 |
defined $$self{'_timeout'} ? : |
|
138
|
0 |
0 |
unless ($sock) |
|
140
|
0 |
0 |
if ($error eq 'IO::Socket::INET: ') |
|
164
|
0 |
0 |
wantarray ? : |
|
184
|
7 |
24 |
unless $_ =~ /^(\S+):\s+(.*)$/ |
|
188
|
1 |
23 |
if ($key eq 'OrgName' or $key eq 'CustName') |
|
190
|
1 |
0 |
unless ($record_count > 1) |
|
202
|
8 |
15 |
if ($key =~ /^$CONTACT_REGEX$/) { } |
|
|
15 |
0 |
elsif (not $found_contact_info) { } |
|
204
|
2 |
6 |
if ($2 eq 'Handle') |
|
236
|
9 |
26 |
unless $_ =~ /^(\S+):\s+(.*)$/ |
|
239
|
1 |
25 |
if ($key eq 'Address') { } |
|
|
12 |
13 |
elsif ($key =~ /^$CONTACT_REGEX$/) { } |
|
243
|
3 |
9 |
if ($2 eq 'Handle') |
|
253
|
1 |
0 |
if exists $attributes{'Address'} |
|
277
|
8 |
23 |
unless $_ =~ /^(\S+):\s+(.*)$/ |
|
281
|
1 |
22 |
if ($key eq 'OrgName') |
|
283
|
1 |
0 |
unless ($record_count > 1) |
|
294
|
1 |
21 |
if ($key eq 'Address') { } |
|
|
12 |
9 |
elsif ($key =~ /^$CONTACT_REGEX$/) { } |
|
|
9 |
0 |
elsif (not $found_contact_info) { } |
|
299
|
3 |
9 |
if ($2 eq 'Handle') |
|
309
|
1 |
0 |
if exists $attributes{'Address'} |
|
334
|
6 |
21 |
unless $_ =~ /^(\S+):\s+(.*)$/ |
|
338
|
1 |
20 |
if ($key eq 'CustName') |
|
340
|
1 |
0 |
unless ($record_count > 1) |
|
352
|
1 |
19 |
if ($key eq 'Address') { } |
|
|
4 |
15 |
elsif ($key =~ /^$CONTACT_REGEX$/) { } |
|
|
15 |
0 |
elsif (not $found_contact_info) { } |
|
357
|
1 |
3 |
if ($2 eq 'Handle') |
|
369
|
1 |
0 |
if exists $attributes{'Address'} |
|
390
|
28 |
112 |
unless $_ =~ /^(\S+):\s+(.*)$/ |
|
394
|
7 |
105 |
if $n < 0 |
|
395
|
14 |
98 |
if ($key eq 'Address') { } |
|
406
|
7 |
0 |
if exists $attributes{'Address'} |
|
424
|
0 |
0 |
unless $query =~ /^\@/ |
|
430
|
0 |
0 |
if (/^(\S+):\s+(.*)$/) |
|
433
|
0 |
0 |
if (/^Email:\s+.*$/) |