Branch Coverage

blib/lib/Net/FreeDB.pm
Criterion Covered Total %
branch 0 64 0.0


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 0 0 unless defined $$self{'HOST'}
77 0 0 unless defined $$self{'PORT'}
79 0 0 unless (defined $$self{'USER'})
80 0 0 defined $ENV{'USER'} ? :
83 0 0 unless (defined $$self{'HOSTNAME'})
84 0 0 defined $ENV{'HOSTNAME'} ? :
87 0 0 defined $$self{'TIMEOUT'} ? :
95 0 0 unless defined $obj
98 0 0 exists $$self{'DEBUG'} ? :
100 0 0 unless ($obj->response == CMD_OK())
113 0 0 unless ($obj->response == CMD_OK())
125 0 0 if (scalar @_ == 2) { }
128 0 0 if (scalar(@_) % 2 == 0) { }
129 0 0 if ($_[0] =~ /^CATEGORY$/i or $_[0] =~ /^ID$/i) { }
143 0 0 $self->_READ($cat, $id) ? :
144 0 0 unless defined $data
158 0 0 $self->_QUERY(@_) ? :
163 0 0 $self->_SITES ? :
169 0 0 if (ref $self ne 'Net::FreeDB') { }
175 0 0 if ($id eq 'UNDEF' or $id eq '')
185 0 0 if (ref $self ne 'Net::FreeDB') { }
191 0 0 unless ($data)
214 0 0 unless my $data = $self->read_until_dot
224 0 0 if ($code == 210 or $code == 211) { }
227 0 0 unless my $data = $self->read_until_dot
230 0 0 if $i =~ /^\.$/
245 0 0 unless my $data = $self->read_until_dot