Branch Coverage

blib/lib/CCCP/SQLiteWrap.pm
Criterion Covered Total %
branch 0 110 0.0


line true false branch
26 0 0 if (ref $class) { }
40 0 0 if ($DBI::errstr)
52 0 0 unless ($obj->db->ping)
60 0 0 unless $table
62 0 0 if ($DBI::errstr)
67 0 0 if ($need_rebackup)
69 0 0 unless $obj->redump
88 0 0 unless @_ or scalar @_ % 2 == 0
95 0 0 if not $name or ref $name or not $param or ref $param ne 'HASH' or not exists $$param{'fields'}
97 0 0 if $$exisis_table{$name}++
100 0 0 if (exists $$param{'meta'})
102 0 0 if (exists $$param{'meta'}{'default'} and scalar @{$$param{'meta'}{'default'};} % 2)
104 0 0 if (exists $$param{'fields'}{$fild})
111 0 0 if (exists $$param{'meta'}{'not_null'})
113 0 0 if (exists $$param{'fields'}{$_})
120 0 0 if (exists $$param{'meta'}{'unique'})
122 0 0 if (exists $$param{'fields'}{$_})
129 0 0 if (exists $$param{'meta'}{'pk'})
134 0 0 if ($can_fk and exists $$param{'meta'}{'fk'})
135 0 0 unless ($$can_fk[0])
140 0 0 if (@fk and scalar @fk % 2 == 0)
143 0 0 if not $fk_field or ref $fk_field or ref $fk_param ne 'HASH' or not exists $$param{'fields'}{$fk_field}
145 0 0 if exists $$fk_param{'on_update'}
146 0 0 if exists $$fk_param{'on_delete'}
152 0 0 if (exists $$param{'meta'}{'index'})
162 0 0 $$index{$ind_md5}++ ? :
173 0 0 $_ eq 'PRIMARY KEY' ? :
0 0 exists $$param{'fields'}{$_} ? :
182 0 0 if ($CCCP::SQLiteWrap::OnlyPrint) { }
191 0 0 wantarray ? :
197 0 0 unless @query
198 0 0 unless $obj->db->begin_work
199 0 0 if $_
205 0 0 if (wantarray) { }
225 0 0 if (-e $obj->path and -s _) { }
236 0 0 -e $obj->path ? :
242 0 0 unless @_ or scalar @_ % 2 == 0
250 0 0 unless $t_name and exists $$exisis_table{$t_name} and $ind_array
259 0 0 unless $index_name
263 0 0 if $index_fields
267 0 0 if not $new_index_fields or ref $new_index_fields ne 'ARRAY'
268 0 0 if $$exists_index{md5_hex(join(',', (sort {$a cmp $b;} @$new_index_fields)))}++
280 0 0 if ($CCCP::SQLiteWrap::OnlyPrint) { }
294 0 0 unless $table
296 0 0 scalar grep({/^\Q$table\E$/i;} map({$_ =~ s/"//g; $_;} $obj->db->tables)) ? :
304 0 0 unless $table and $ind_fields and ref $ind_fields eq 'ARRAY'
305 0 0 unless $obj->table_exists($table)
308 0 0 unless $index_name
313 0 0 if ($index_fields)
321 0 0 exists $$exists_index{$ind_fields_md5} ? :
326 0 0 unless @_ or scalar @_ % 2 == 0
333 0 0 if not $t_name && exists $$exisis_table{$t_name} && $param or ref $param ne 'HASH' or not keys %$param
336 0 0 if not $t_event_1 && $event_param or ref $event_param ne 'HASH' or not keys %$event_param
339 0 0 unless $t_event_2 and $sql and ref $sql eq 'ARRAY' and scalar @$sql
361 0 0 if ($CCCP::SQLiteWrap::OnlyPrint) { }