| line |
true |
false |
branch |
|
116
|
2 |
3 |
if ($args{'streaks'}) |
|
120
|
0 |
20 |
unless my($start, $item) = $key =~ /$re/ |
|
122
|
6 |
14 |
if $prev_period < $p |
|
128
|
2 |
3 |
if ($args{'start_period'}) { } |
|
129
|
2 |
0 |
if ($prev_period > 0) { } |
|
131
|
0 |
2 |
unless $args{'start_period'} == $prev_period or $args{'start_period'} == $prev_period + 1 |
|
134
|
0 |
0 |
unless $args{'start_period'} == 1 |
|
145
|
0 |
20 |
unless my($start, $item) = $key =~ /$re/ |
|
146
|
10 |
10 |
if not defined $streak->[1] or $streak->[1] == $prev_period |
|
159
|
28 |
28 |
if $current_items{$item} |
|
170
|
56 |
28 |
if ($items_this_period{$item}) { } |
|
171
|
53 |
3 |
if ($period > $prev_period) { } |
|
172
|
26 |
27 |
unless ($new_items_this_period{$item}) |
|
196
|
8 |
40 |
if ($args{'exclude_broken'}) |
|
197
|
3 |
5 |
if (defined $streak->[1] and not $streak->[1] == $cur_period) |
|
199
|
0 |
48 |
if (defined $args{'min_len'}) |
|
200
|
0 |
0 |
if $streak->[0] < $args{'min_len'} |
|
206
|
3 |
2 |
if ($args{'raw'}) |
|
217
|
0 |
34 |
unless my($start_a, $item_a) = $a =~ /$re/ |
|
218
|
0 |
34 |
unless my($start_b, $item_b) = $b =~ /$re/ |
|
219
|
4 |
30 |
unless $streak_b->[0] <=> $streak_a->[0] or $start_a <=> $start_b |
|
227
|
0 |
13 |
unless my($start, $item) = $key =~ /$re/ |
|
229
|
3 |
6 |
$streak->[1] < $cur_period ? : |
|
|
4 |
9 |
!defined($streak->[1]) ? : |