| line |
true |
false |
branch |
|
9
|
1 |
0 |
$_[0] ? : |
|
16
|
0 |
8 |
unless @_ == 0 and ref $list eq 'ARRAY' |
|
17
|
0 |
8 |
unless ref $opts eq 'HASH' |
|
21
|
0 |
5 |
unless /^(?:start_offset|increment|random)$/ |
|
24
|
0 |
8 |
if (exists $$opts{'increment'} and exists $$opts{'random'}) |
|
37
|
1 |
7 |
if (exists $$opts{'random'}) |
|
41
|
2 |
6 |
if exists $$opts{'start_offset'} |
|
42
|
2 |
6 |
if exists $$opts{'increment'} |
|
50
|
0 |
83 |
if $$self{'_debug'} |
|
52
|
10 |
73 |
$$self{'_random'} ? : |
|
61
|
0 |
0 |
unless UNIVERSAL::isa($self, 'Tie::Scalar::RingBuffer') |
|
68
|
0 |
3 |
if $$self{'_debug'} |
|
77
|
0 |
3 |
unless UNIVERSAL::isa($self, 'Tie::Scalar::RingBuffer') |
|
79
|
3 |
0 |
if (@_) |
|
81
|
0 |
3 |
unless defined $start_offset and $start_offset =~ /^[+-]?\d+$/ |
|
89
|
0 |
2 |
unless UNIVERSAL::isa($self, 'Tie::Scalar::RingBuffer') |
|
90
|
2 |
0 |
if (@_) |
|
92
|
0 |
2 |
unless defined $incr and $incr =~ /^[+-]?\d+$/ |