Branch Coverage

blib/lib/Tie/PagedArray.pm
Criterion Covered Total %
branch 87 118 73.7


line true false branch
102 18 0 $page_size && int $page_size > 0 ? :
103 5 13 unless $paging_dir and -d $paging_dir
118 678 1781 if $new_size < 1
120 19 1762 unless defined $page_num
128 1377 404 if ($new_pages_count > 0) { }
3 401 elsif ($new_pages_count < 0) { }
130 660 717 if @$page_bank
142 3 0 if defined $page_file and -f $page_file
154 1206 575 if $page_num != $$self[1]
164 1762 0 unless defined $page_num
169 1762 0 if $index >= $self->FETCHSIZE
172 0 1762 if $page_num != $$self[1]
188 0 59818 unless $self->EXISTS($index, $page_num, $offset)
197 12109 47709 if $page_num != $$self[1]
206 0 59818 unless defined $page_num
207 0 59818 if $page_num > $#{$$self[0];} or $offset >= $$self[0][$page_num][1]
225 0 0 if ($index > $last_index) { }
250 20 0 if ($newsize >= 0)
260 0 20 unless $$self[3] > 0
262 15 5 $$self[1] != 0 ? :
265 16 4 if (--$$page[1]) { }
271 4 0 if -f $$page[3]
283 0 160 unless @_
286 6 154 if ($$self[1] == 0) { }
154 0 elsif ($$self[1] > 0) { }
293 1 159 unless defined $page
297 25 135 if @_ < $room
298 113 47 if $room > 0
307 87 56 if $std_page_size > $remain_len
326 11 0 scalar @_ ? :
328 11 0 scalar @_ ? :
332 0 11 if $len < 0
333 0 11 if $index > $size
334 0 11 if $index + $len > $size
342 3 8 $new_elems_len <= $len ? :
349 1 2 if $page_num != $$self[1]
355 0 11 if $new_elems_len == $len
357 3 8 if ($new_elems_len < $len) { }
362 1 2 if $del_start_page_num != $$self[1]
364 3 0 if ($del_start_page_num == $del_end_page_num) { }
376 0 0 if ($mid_start <= $mid_end)
389 0 0 if ($$page[1] = scalar @{$$page[0];}) { }
406 1 7 if ($ins_start_offset == 0 and $ins_start_page_num > 0)
412 0 8 if $ins_start_page_num != $$self[1]
417 5 3 if ($remaining_len + $$page[1] <= $std_page_size) { }
428 1 2 if $remaining_len < $post_cut_space
440 2 1 if ($remaining_len > 0)
442 0 2 if $remaining_len < $post_cut_space
456 3 1 $std_page_size < $remaining_len ? :
496 47721 13895 if $index >= $$self[5] and $index <= $$self[6]
505 12194 370950 if $index >= $page_idx and $index <= $page_end_idx
511 656 1045 unless defined $page
517 385 660 if $index < $std_page_size
531 1 13643 if ($#$page_bank < 0)
537 13643 0 if ($active_page_num > -1 and $active_page_num <= $#{$$self[0];})
540 2231 11412 if ($$page[2])
543 0 2231 unless $rc
553 10319 3324 if defined $page_file and -f $page_file
561 13643 0 $page_data ? :