| line |
true |
false |
branch |
|
103
|
3 |
1 |
if (defined $_[1]) |
|
108
|
1 |
1 |
unless (defined $args{'ptrs'} or defined $args{'fptrs'} or defined $args{'lptrs'}) |
|
115
|
0 |
0 |
if (defined $args{'ptrs'} and not defined $args{'ptrs'}[0] and (defined $args{'lptrs'} and not defined $args{'lptrs'}[0]) and (defined $args{'fptrs'} and not defined $args{'fptrs'}[0])) |
|
140
|
1 |
2 |
if (defined $args{'ptrs'}[0]) |
|
143
|
1 |
2 |
if (defined $args{'lptrs'}[0]) |
|
146
|
1 |
2 |
if (defined $args{'fptrs'}[0]) |
|
174
|
1 |
7 |
unless (defined $object) |
|
178
|
1 |
6 |
if (ref $object ne 'Net::Connection') |
|
185
|
6 |
0 |
if (defined $l_ptr) { } |
|
193
|
0 |
0 |
if (defined $answer->{'answer'}[0] and ref $answer->{'answer'}[0] eq 'Net::DNS::RR::PTR') |
|
200
|
6 |
0 |
if (defined $f_ptr) { } |
|
208
|
0 |
0 |
if (defined $answer->{'answer'}[0] and ref $answer->{'answer'}[0] eq 'Net::DNS::RR::PTR') |
|
216
|
1 |
1 |
if ($l_ptr =~ /$regex/) |
|
219
|
1 |
0 |
if ($f_ptr =~ /$regex/) |
|
224
|
1 |
1 |
if ($l_ptr =~ /$regex/) |
|
229
|
1 |
1 |
if ($f_ptr =~ /$regex/) |