Branch Coverage

blib/lib/CDDB_get.pm

Criterion	Covered	Total	%
branch	0	160	0.0

line	true	false	branch
135	0	0	unless sysopen CD, $device, 2048
136	0	0	unless ioctl CD, $CDROMREADTOCHDR, $tochdr
138	0	0	if ($os =~ /BSD/) { }
143	0	0	if $CDDB_get::debug
161	0	0	if ($os =~ /BSD/)
165	0	0	if ($BIG_ENDIAN) { }
166	0	0	if ($BITS_64) { }
174	0	0	if ($BITS_64) { }
180	0	0	unless ioctl CD, $CDROMREADTOCENTRY, $tocentry
186	0	0	if (not $os =~ /BSD/) { }
189	0	0	unless ioctl CD, $CDROMREADTOCENTRY, $tocentry
205	0	0	if ($data & 64)
246	0	0	if defined $cd
266	0	0	if $multi
268	0	0	if $CDDB_get::debug
270	0	0	if defined $$config{'CDDB_HOST'}
271	0	0	if defined $$config{'CDDB_PORT'}
272	0	0	if defined $$config{'CDDB_MODE'}
273	0	0	if defined $$config{'CD_DEVICE'}
274	0	0	if defined $$config{'HELLO_ID'}
275	0	0	if defined $$config{'PROTO_VERSION'}
276	0	0	if defined $$config{'HTTP_PROXY'}
277	0	0	if defined $$config{'FW'}
279	0	0	if (defined $diskid) { }
305	0	0	if $CDDB_get::debug
307	0	0	if ($CDDB_MODE eq 'cddb') { }
	0	0	elsif ($CDDB_MODE eq 'http') { }
308	0	0	if $CDDB_get::debug
310	0	0	unless $socket = 'IO::Socket::INET'->new('PeerAddr', $CDDB_HOST, 'PeerPort', $CDDB_PORT, 'Proto', 'tcp', 'Type', 1)
314	0	0	unless ($return =~ /^2\d\d\s+/)
321	0	0	if $CDDB_get::debug
322	0	0	unless ($return =~ /^2\d\d\s+/)
329	0	0	if $CDDB_get::debug
330	0	0	unless ($return =~ /^2\d\d\s+/)
334	0	0	if $CDDB_get::debug
340	0	0	if $CDDB_get::debug
354	0	0	if ($HTTP_PROXY)
355	0	0	if ($HTTP_PROXY =~ m[^(http://|)(.+?):(.+)\@(.+?):(.+)]) { }
	0	0	elsif ($HTTP_PROXY =~ m[^(http://|)(.+?):(\d+)]) { }
367	0	0	if $CDDB_get::debug
369	0	0	unless $socket = 'IO::Socket::INET'->new('PeerAddr', $host, 'PeerPort', $port, 'Proto', 'tcp', 'Type', 1)
372	0	0	if $CDDB_get::debug
375	0	0	if ($user)
381	0	0	if $FW
383	0	0	if ($HTTP_PROXY)
390	0	0	if $CDDB_get::debug
398	0	0	unless ($err =~ /^2/)
402	0	0	if ($err == 202) { }
	0	0	elsif ($err == 211 or $err == 210) { }
	0	0	elsif ($err == 200) { }
406	0	0	if /^\./
409	0	0	if $CDDB_get::debug
420	0	0	if (not $multi) { }
421	0	0	if (@list)
423	0	0	if ($input == 1) { }
438	0	0	if ($index == 0) { }
456	0	0	if ($at =~ m[/]) { }
475	0	0	if ($CDDB_MODE eq 'cddb') { }
	0	0	elsif ($CDDB_MODE eq 'http') { }
476	0	0	if $CDDB_get::debug
480	0	0	if /^\./
483	0	0	if (@to_get - 1 == $i)
503	0	0	if ($HTTP_PROXY)
504	0	0	if ($HTTP_PROXY =~ m[^(http://|)(.+?):(.+)\@(.+?):(.+)]) { }
	0	0	elsif ($HTTP_PROXY =~ m[^(http://|)(.+?):(\d+)]) { }
516	0	0	if $CDDB_get::debug
518	0	0	unless $socket = 'IO::Socket::INET'->new('PeerAddr', $host, 'PeerPort', $port, 'Proto', 'tcp', 'Type', 1)
521	0	0	if $CDDB_get::debug
524	0	0	if ($user)
530	0	0	if $FW
532	0	0	if ($HTTP_PROXY)
537	0	0	if /^\./
559	0	0	if /^\./
560	0	0	if /^\d\d\d/
563	0	0	if (/^TTITLE(\d+)\=\s*(.*)/) { }
	0	0	elsif (/^DYEAR=\s*(\d+)/) { }
	0	0	elsif (/^DGENRE=\s*(\S+.*)/) { }
	0	0	elsif (/^\#\s+Revision:\s+(\d+)/) { }
568	0	0	if (not defined $cd{'track'}[$1]) { }
587	0	0	unless $multi