Branch Coverage

blib/lib/Netx/WebRadio/Station/Shoutcast.pm
Criterion Covered Total %
branch 1 76 1.3


line true false branch
125 0 0 if ($self->get_state eq 'START')
129 0 0 if ($self->get_state eq 'CONNECT')
130 0 0 if ($socket->connected) { }
139 0 0 if ($self->get_state eq 'SENDHEADER')
149 0 0 unless ($bytes)
150 0 0 if $! == 11
154 0 0 unless ($header)
158 0 0 unless $$self{'_header'}
162 0 0 if ($self->get_state eq 'READHEADER')
166 0 0 unless (defined $tLength)
172 0 0 if ($in =~ /\r\n\r\n/) { }
177 0 0 if ($header =~ /icy-metaint:\s*(\d*)\r\n/i) { }
184 0 0 if ($line =~ /^icy/)
187 0 0 if $name eq 'icy-name'
200 0 0 if ($self->get_state eq 'MDNOSYNC')
205 0 0 unless (defined $tLength)
210 0 0 if ($$self{'_audio'} =~ /Stream(.|\n)*\0/i) { }
219 0 0 if ($mreturn)
236 0 0 if ($self->get_state eq 'MDSYNC')
241 0 0 unless (defined $realLength)
247 0 0 if ($$self{'_restLength'} == 0) { }
249 0 0 if $in
250 0 0 if ord $l
254 0 0 if $in
259 0 0 if ($self->get_state eq 'READMD')
267 0 0 unless (defined $realLength)
273 0 0 if ($realLength < $lengthInBytes)
276 0 0 if $$self{'_newMetaData'}
280 0 0 if ($metaData) { }
306 0 0 if $host
307 0 0 if $port
309 0 0 unless $self->port and $self->host
312 0 0 if ($self->socket->connect($addr)) { }
317 0 0 if ($! == 115) { }
348 0 1 unless my $socket = 'IO::Socket::INET'->new('Proto', 'tcp', 'Type', 1)
465 0 0 unless (defined $ret)
466 0 0 if ($! == 11)
477 0 0 unless $title