Branch Coverage

blib/script/narada-mysqldump
Criterion Covered Total %
branch 0 52 0.0


line true false branch
44 0 0 if @_
46 0 0 unless init_globals()
70 0 0 unless my $db = get_db_config()
72 0 0 unless $main::dbh = 'DBI'->connect($db->{'dsn'}, $db->{'login'}, $db->{'pass'}, {'RaiseError', 1})
76 0 0 if length $db->{'pass'}
77 0 0 if length $db->{'host'}
78 0 0 if length $db->{'port'}
80 0 0 unless sysseek $main::mycnf, 0, 0
81 0 0 unless fcntl $main::mycnf, 2, 0
94 0 0 if $other{$table}
107 0 0 if ($desc) { }
0 0 elsif ($required == 0) { }
122 0 0 if (-f $file and mtime($file) == get_table_status($table, 'Update_time'))
134 0 0 if ($file =~ m[\A\Q${\'var/mysql';}\E/([^.]*)[.]sql\z]msx) { }
0 0 elsif ($file =~ m[\A\Q${\'var/mysql';}\E/([^.]*)[.]\d+-(\d+)[.]sql\z]msx) { }
136 0 0 if $unchanged{$table}
140 0 0 if $incremental{$table} and mtime($file) >= get_table_status($table, 'Create_time')
143 0 0 unless unlink $file
160 0 0 if $unchanged{$table}
174 0 0 if ($prev < $next - 1)
192 0 0 if ($field =~ /_time\z/msx)
193 0 0 if (not defined $val) { }
213 0 0 unless @{$desc;} and $desc->[0][1] =~ /\A\w*int\b/msx and $desc->[0][3] eq 'PRI' and $desc->[0][5] eq 'auto_increment' and 1 == grep({$_->[3] eq 'PRI';} @{$desc;})
224 0 0 unless system("$main::MYSQLDUMP $opt > \Q$file\E.tmp") == 0
226 0 0 unless rename "$file.tmp", $file
227 0 0 unless utime $t, $t, $file