Branch Coverage

blib/lib/DBIx/Class/Ordered.pm
Criterion Covered Total %
branch 71 82 86.5


line true false branch
171 390 0 defined $position ? :
190 582 259 defined $position ? :
214 246 14 defined $psib ? :
235 116 14 defined $fsib ? :
255 246 14 defined $nsib ? :
275 116 14 defined $lsib ? :
319 14 51 unless defined $self->_last_sibling_posval
349 45 84 unless defined $last_posval
366 14 566 if $to_position < 1
371 33 533 if ($is_txn = $self->result_source->schema->storage->transaction_depth) { }
2 531 elsif ($self->is_column_changed($position_column)) { }
402 80 486 if ($from_position == $to_position)
406 32 454 $is_txn ? :
409 260 226 if ($from_position < $to_position) { }
421 19 467 if (grep {$_ eq $position_column;} map({@$_;} values %{+{$self->result_source->unique_constraints};}))
428 454 32 if $guard
451 6 13 unless (ref $to_group eq 'HASH')
454 0 6 if @gcols > 1
460 0 19 if defined $to_position and $to_position < 1
466 16 8 if ($self->is_column_changed($_))
472 0 19 if ($self->_is_in_group($to_group))
474 0 0 if (defined $to_position)
492 5 14 if (not defined $to_position or $to_position > $new_group_last_position) { }
493 5 0 $new_group_last_position ? :
525 238 28 unless ($self->get_column($position_column))
527 169 69 defined $lsib_posval ? :
552 563 16 if $self->result_source->schema->{'_ORDERED_INTERNAL_UPDATE'}
555 8 8 if $upd
564 1 15 if (not keys %$changed_ordering_cols) { }
13 2 elsif (defined &first(sub { exists $changed_ordering_cols->{$_}; } , @group_columns)) { }
580 5 8 exists $changed_ordering_cols->{$position_column} ? :
638 0 793 unless defined $val
717 0 500 unless $direction
722 260 240 if ($direction < 0) { }
742 19 481 if (&first(sub { $_ eq $position_column; } , map({@$_;} values %{+{$rsrc->unique_constraints};}))) { }
751 0 39 $op eq '+' ? :
773 972 259 defined($pos = $self->get_column($position_column)) ? :
802 1130 1282 if (ref $col eq 'ARRAY') { }
1130 152 elsif ($col) { }
818 0 19 if join("\000", sort(keys %$current)) ne join("\000", sort(keys %$other))
824 19 2 if $current->{$key} ne $other->{$key}