Branch Coverage

blib/lib/Net/Random/QRBG.pm
Criterion Covered Total %
branch 15 34 44.1


line true false branch
79 1 1 if (@_)
95 1 1 if (@_)
113 0 1 unless $i
114 0 1 if ($sign) { }
132 0 1 unless $i
133 0 1 if ($end) { }
151 0 1 unless $i
152 0 1 if ($sign) { }
170 0 1 unless $i
171 0 1 if ($sign) { }
189 0 0 unless $i
190 0 0 if ($sign) { }
208 0 0 unless $i
209 0 0 if ($sign) { }
223 0 4 if (&bytes::length($$self{'cache'}) < $count and not $self->_getMoreBytes(max($$self{'cache_size'}, $count)))
234 0 1 unless my $sock = 'IO::Socket::INET'->new('Proto', 'tcp', 'PeerPort', $$self{'port'}, 'PeerAddr', $$self{'server'})
257 0 1 if ($code or $code2)