| line |
true |
false |
branch |
|
43
|
0 |
0 |
if $constname eq 'constant' |
|
44
|
0 |
0 |
@_ ? : |
|
45
|
0 |
0 |
if ($! != 0) |
|
46
|
0 |
0 |
if ($! =~ /Invalid/ or $!{'EINVAL'}) { } |
|
57
|
0 |
0 |
if ($] >= 5.00561) { } |
|
76
|
1 |
0 |
unless defined $$self{'HOST'} |
|
77
|
1 |
0 |
unless defined $$self{'PORT'} |
|
79
|
0 |
1 |
unless (defined $$self{'USER'}) |
|
80
|
0 |
0 |
defined $ENV{'USER'} ? : |
|
83
|
1 |
0 |
unless (defined $$self{'HOSTNAME'}) |
|
84
|
1 |
0 |
defined $ENV{'HOSTNAME'} ? : |
|
87
|
0 |
1 |
defined $$self{'TIMEOUT'} ? : |
|
95
|
0 |
1 |
unless defined $obj |
|
98
|
0 |
1 |
exists $$self{'DEBUG'} ? : |
|
100
|
0 |
1 |
unless ($obj->response == CMD_OK()) |
|
113
|
0 |
1 |
unless ($obj->response == CMD_OK()) |
|
125
|
1 |
0 |
if (scalar @_ == 2) { } |
|
128
|
0 |
0 |
if (scalar(@_) % 2 == 0) { } |
|
129
|
0 |
0 |
if ($_[0] =~ /^CATEGORY$/i or $_[0] =~ /^ID$/i) { } |
|
143
|
1 |
0 |
$self->_READ($cat, $id) ? : |
|
144
|
0 |
1 |
unless defined $data |
|
158
|
2 |
0 |
$self->_QUERY(@_) ? : |
|
163
|
1 |
0 |
$self->_SITES ? : |
|
169
|
1 |
1 |
if (ref $self ne 'Net::FreeDB') { } |
|
175
|
2 |
0 |
if ($id eq 'UNDEF' or $id eq '') |
|
185
|
1 |
0 |
if (ref $self ne 'Net::FreeDB') { } |
|
191
|
0 |
1 |
unless ($data) |
|
214
|
0 |
1 |
unless my $data = $self->read_until_dot |
|
224
|
1 |
1 |
if ($code == 210 or $code == 211) { } |
|
227
|
0 |
1 |
unless my $data = $self->read_until_dot |
|
230
|
0 |
10 |
if $i =~ /^\.$/ |
|
245
|
0 |
1 |
unless my $data = $self->read_until_dot |