Branch Coverage

blib/lib/DBIx/OnlineDDL.pm
Criterion Covered Total %
branch 43 136 31.6


line true false branch
450 0 13 unless @ids
451 0 13 if @ids > 1
458 27 0 if ($rsrc) { }
482 27 0 unless $copy_opts->{'progress_bar'}
585 0 27 unless Class::Load::load_optional_class($helper_class)
630 27 0 if ($rsrc) { }
645 0 0 do { $ref eq 'CODE' } ? :
0 0 do { $ref eq 'ARRAY' } ? :
0 0 do { not $ref } ? :
0 27 $on_connect_call ? :
664 0 0 if ($first_occ and ref $first_occ and ref $first_occ eq 'ARRAY') { }
689 0 0 unless $dbi_attrs
700 0 0 do { subname($callbacks->{'connected'}) =~ /^$package_re/ } ? :
0 0 do { $ref ne 'CODE' unless not $ref } ? :
0 0 $callbacks->{'connected'} ? :
706 0 0 unless not $ref
727 0 0 if $conn->max_attempts == 10
818 39 15 unless $hooks and $hooks->{$hook_name}
875 0 0 if ($is_retryable)
880 0 0 if $progress
886 0 0 if ($failed >= $max / 2)
888 0 0 if ($runner->isa('DBIx::Class::Storage::BlockRunner')) { }
896 0 0 if $progress
908 0 1123 unless $method =~ /^(?:txn|run)$/
911 1123 0 if (my $rsrc = $self->rsrc) { }
922 27 1096 $method eq 'txn' ? :
942 135 649 do { $wantarray } ? :
784 339 defined $wantarray ? :
951 0 1123 if (my $err = $@) { }
953 0 0 if $err =~ /Reached max_attempts amount of / or $block_runner->failed_attempt_count >= $block_runner->max_attempts
958 0 0 unless $self->_retry_handler($block_runner)
967 0 0 do { $wantarray } ? :
0 0 defined $wantarray ? :
972 135 988 $wantarray ? :
999 0 176 if $ref and $ref ne 'ARRAY'
1002 0 176 $ref ? :
1041 0 27 unless $table_sql
1043 0 27 if $helper->dbms_uses_global_fk_namespace
1116 27 0 if ($dbh->can('statistics_info'))
1119 0 27 if $@
1126 66 86 if $_->{'INDEX_NAME'} eq $index_name
1140 0 61 unless @unique_cols
1143 0 61 unless &all(sub { $column_set{$_}; } , @unique_cols)
1149 0 27 unless @unique_ids
1153 0 27 if $helper->has_triggers_on_table($orig_table_name)
1237 27 54 if ($trigger_type eq 'INSERT') { }
27 27 elsif ($trigger_type eq 'UPDATE') { }
27 0 elsif ($trigger_type eq 'DELETE') { }
1317 0 27 if ($helper->dbms_uses_global_fk_namespace or $helper->child_fks_need_adjusting)
1388 0 27 if ($helper->child_fks_need_adjusting)
1426 0 27 if ($helper->dbms_uses_global_fk_namespace)
1437 0 27 if ($helper->child_fks_need_adjusting)
1479 0 135 if @results
1486 0 135 unless defined $new_name
1533 0 0 unless $DBIx::OnlineDDL::a->{'FK_NAME'} cmp $DBIx::OnlineDDL::b->{'FK_NAME'}
1538 0 0 unless $row->{'PKTABLE_NAME'} or $row->{'UK_TABLE_CAT'}
1539 0 0 unless $row->{'FKTABLE_NAME'} or $row->{'FK_TABLE_NAME'}
1551 0 0 if ($fks{$key}) { }
1572 0 0 if ($create_table_sql =~ m[ CONSTRAINT \s $fk_name_quote_re \s ( # start capture of full SQL FOREIGN \s KEY \s \( [^\)]+ \) \s # "FOREIGN KEY" plus column list (which we already have above) REFERENCES \s [^\(]+ \s \( [^\)]+ \) # "REFERENCES" plus table+column list (again, already captured above) \s? ( [^\)\,]* ) # ON DELETE/UPDATE, DEFER, MATCH, etc. ) # end capture of full SQL ]six)
1583 0 0 if $extra_sql =~ /ON DELETE ((?:SET |NO )?\w+)/i
1584 0 0 if $extra_sql =~ /ON UPDATE ((?:SET |NO )?\w+)/i
1585 0 0 if $extra_sql =~ /((?:NOT )?DEFERRABLE(?: INITIALLY \w+)?)/i
1586 0 0 if $extra_sql =~ /(MATCH \w+)/i
1604 0 0 if ($fk->{'fk_sql'})
1622 0 0 $fk->{'match'} ? :
0 0 $fk->{'delete_rule'} ? :
0 0 $fk->{'update_rule'} ? :
0 0 $fk->{'defer'} ? :