Branch Coverage

blib/lib/IMDB/Local/DB/Base.pm
Criterion Covered Total %
branch 0 260 0.0


line true false branch
53 0 0 unless ($gotit)
55 0 0 if ($attempts % 100 == 0) { }
0 0 elsif ($attempts % 10 == 0) { }
77 0 0 if ($self->isConnected)
91 0 0 unless defined $self->driver
95 0 0 if (defined $self->driverDetail)
98 0 0 if (defined $self->server and length $self->server)
99 0 0 if ($self->driver eq 'ODBC') { }
0 0 elsif ($self->driver eq 'SQLite') { }
0 0 elsif ($self->driver eq 'mysql') { }
109 0 0 if (defined $self->database and length $self->database)
110 0 0 if ($self->driver eq 'ODBC') { }
0 0 elsif ($self->driver eq 'SQLite') { }
121 0 0 if (defined $self->mutexName and length $self->mutexName)
122 0 0 if ($^O eq 'MSWin32') { }
0 0 elsif ($^O eq 'linux') { }
128 0 0 if (defined $self->database and length $self->database)
132 0 0 if ($mutex)
133 0 0 if ($^E == 183) { }
137 0 0 if ($stop)
143 0 0 if ($attempts != 0)
158 0 0 if (defined $self->database and length $self->database)
164 0 0 if (not open($fd, "> $name")) { }
0 0 elsif (not flock($fd, 6)) { }
170 0 0 if ($stop)
179 0 0 if ($stop)
186 0 0 if ($attempts != 0)
206 0 0 unless ($dbh)
208 0 0 if (defined $self->mutex)
209 0 0 if ($^O eq 'MSWin32') { }
0 0 elsif ($^O eq 'linux') { }
230 0 0 if ($dbh->err)
233 0 0 if ($^O eq 'MSWin32') { }
0 0 elsif ($^O eq 'linux') { }
244 0 0 if ($self->driver eq 'SQLite')
262 0 0 if ($self->dbh)
267 0 0 if (defined $self->mutex)
268 0 0 if ($^O eq 'MSWin32') { }
0 0 elsif ($^O eq 'linux') { }
290 0 0 unless (defined $self->dbh)
316 0 0 unless (defined $self->dbh)
332 0 0 unless (defined $self->dbh)
336 0 0 if ($self->driver eq 'ODBC')
352 0 0 unless (defined $self->dbh)
360 0 0 if ($dbh->err)
377 0 0 unless (defined $self->dbh)
394 0 0 unless (defined $self->dbh)
411 0 0 unless (defined $self->dbh)
429 0 0 unless (defined $self->dbh)
435 0 0 unless ($sth)
439 0 0 unless ($sth->execute)
458 0 0 unless (defined $dbh)
466 0 0 if (defined $args{$key})
475 0 0 unless ($k =~ s/,$// and $v =~ s/,$//)
487 0 0 if ($dbh->err)
496 0 0 unless (defined $primaryKey)
506 0 0 if ($self->driver eq 'ODBC')
508 0 0 if ($word eq 'File')
513 0 0 if ($word =~ /^([^\.]+)\.(File)$/o)
545 0 0 if ($args{'limit'} and $self->driver eq 'ODBC')
554 0 0 unless $st =~ s/,$//
560 0 0 unless $st =~ s/,$//
562 0 0 if ($args{'wheres'})
567 0 0 if $w =~ s/ AND $//
570 0 0 if ($args{'groupbys'})
575 0 0 if $w =~ s/,$//
580 0 0 if (defined $args{'sortByField'} and length $args{'sortByField'}) { }
0 0 elsif (defined $args{'orderbys'} and @{$args{'orderbys'};}) { }
582 0 0 if ($sortedField =~ s/^\-//) { }
596 0 0 unless $st =~ s/,$//
599 0 0 if ($args{'limit'})
600 0 0 if ($self->driver eq 'ODBC') { }
0 0 elsif ($self->driver eq 'mysql') { }
0 0 elsif ($self->driver eq 'SQLite') { }
610 0 0 if ($args{'offset'}) { }
611 0 0 if ($args{'offset'} < 0)
637 0 0 if ($args{'cacheBy'})
640 0 0 if ($args{'limit'} and $cacheBy > $args{'limit'})
647 0 0 unless (defined $sth)
652 0 0 if ($self->dbh->err)
674 0 0 if ($self->driver eq 'ODBC') { }
0 0 elsif ($self->driver eq 'mysql') { }
0 0 elsif ($self->driver eq 'SQLite') { }
699 0 0 unless ($sth)
717 0 0 if (defined $r)
734 0 0 unless ($sth)
756 0 0 unless ($sth)
778 0 0 unless ($sth)
795 0 0 unless ($sth)
803 0 0 if (scalar @r == 1) { }
817 0 0 if ($self->driver eq 'ODBC') { }
0 0 elsif ($self->driver eq 'SQLite') { }
849 0 0 if ($self->tables_index(0))
853 0 0 if ($self->driver eq 'ODBC') { }
0 0 elsif ($self->driver eq 'SQLite') { }
855 0 0 unless (defined $sth)
894 0 0 unless (grep /^$table$/, $dbh->table_list)
910 0 0 unless ($db->isConnected)
913 0 0 if ($db->table_exists($table))
914 0 0 if ($db->runSQL("DELETE from $table"))
915 0 0 if ($db->driver eq 'SQLite' and $db->runSQL("DELETE from sqlite_sequence where name='${table}'"))
943 0 0 if ($self->table_infos_exists($table))
948 0 0 if ($self->driver eq 'ODBC') { }
0 0 elsif ($self->driver eq 'SQLite') { }
0 0 elsif ($self->driver eq 'mysql') { }
958 0 0 if ($res)
961 0 0 unless defined $default
966 0 0 if ($$t{'TYPE_NAME'} =~ s/\((\d+)\)$//)
970 0 0 uc $key eq 'PRI' ? :
974 0 0 unless (@list)
987 0 0 if ($self->driver eq 'ODBC') { }
0 0 elsif ($self->driver eq 'SQLite') { }
997 0 0 unless (defined $sth)
1004 0 0 if (@key_column_names)
1006 0 0 if (grep /^$col$/, @key_column_names) { }
1016 0 0 unless (@list)
1056 0 0 if ($int)
1057 0 0 if (open my $fd, "> $file")
1089 0 0 if (open my $fd, '<:encoding(utf8)', $file)
1096 0 0 if (scalar @titleRow != scalar @$row) { }
1106 0 0 if ($self->insert_row($table, undef, %args))
1112 0 0 unless $csv->eof
1130 0 0 if ($self->driver eq 'mysql') { }
0 0 elsif ($self->driver eq 'SQLite') { }
1140 0 0 unless (defined $sth)
1165 0 0 if ($self->driver eq 'mysql') { }
0 0 elsif ($self->driver eq 'SQLite') { }
1166 0 0 unless (@tables)
1177 0 0 unless (@tables)
1199 0 0 if (not @tables or grep /^$table$/, @tables)