Branch Coverage

blib/lib/DBIx/Class/Ordered.pm
Criterion Covered Total %
branch 68 80 85.0


line true false branch
200 390 0 defined $position ? :
233 582 259 defined $position ? :
257 246 14 defined $psib ? :
278 116 14 defined $fsib ? :
298 246 14 defined $nsib ? :
318 116 14 defined $lsib ? :
361 14 51 unless defined $self->_last_sibling_posval
391 45 84 unless defined $last_posval
408 14 566 if $to_position < 1
415 33 533 if ($is_txn = $rsrc->schema->storage->transaction_depth) { }
2 531 elsif ($self->is_column_changed($position_column)) { }
445 80 486 if ($from_position == $to_position)
449 32 454 $is_txn ? :
452 260 226 if ($from_position < $to_position) { }
464 19 467 if (grep {$_ eq $position_column;} map({@$_;} values %{+{$rsrc->unique_constraints};}))
471 454 32 if $guard
494 6 13 unless (ref $to_group eq 'HASH')
497 0 6 if @gcols > 1
503 0 19 if defined $to_position and $to_position < 1
509 16 8 if ($self->is_column_changed($_))
515 0 19 if ($self->_is_in_group($to_group))
517 0 0 if (defined $to_position)
535 5 14 if (not defined $to_position or $to_position > $new_group_last_position) { }
536 5 0 $new_group_last_position ? :
568 238 25 unless ($self->get_column($position_column))
570 169 69 defined $lsib_posval ? :
595 561 15 if $self->result_source->schema->{'_ORDERED_INTERNAL_UPDATE'}
598 8 7 if $upd
607 0 15 if (not keys %$changed_ordering_cols) { }
13 2 elsif (grep {exists $changed_ordering_cols->{$_};} @group_columns) { }
623 5 8 exists $changed_ordering_cols->{$position_column} ? :
685 0 793 unless defined $val
764 0 500 unless $direction
769 260 240 if ($direction < 0) { }
789 19 481 if (grep {$_ eq $position_column;} map({@$_;} values %{+{$rsrc->unique_constraints};})) { }
798 0 37 $op eq '+' ? :
840 972 259 defined($pos = $self->get_column($position_column)) ? :
869 1130 1278 if (ref $col eq 'ARRAY') { }
1126 152 elsif ($col) { }
890 0 19 &bag_eq([keys %$current], [keys %$other]) && !grep({defined $current->{$_} and $current->{$_} ne $other->{$_} unless defined $current->{$_} xor defined $other->{$_};} keys %$other) ? :