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) |