Branch Coverage

lib/Ubic/UA.pm
Criterion Covered Total %
branch 0 10 0.0


line true false branch
23 0 0 unless ($url)
34 0 0 unless my $socket = 'IO::Socket::INET'->new('PeerAddr', $authority, 'Proto', 'tcp', 'Timeout', $self->{'timeout'})
36 0 0 if $query
44 0 0 if $line eq "\r\n"
49 0 0 if ($status_line =~ m[^HTTP/([0-9\.]+)\s+([0-9]{3})\s+(?=([^\r\n]*))?]i) { }