| line | % | coverage | branch |
|---|
| 446 | 100 | T | F | unless my $params = eval {
do {
validate_strict("schema", {%NEW_SCHEMA}, "input", \%given)
}
} |
| 450 | 100 | T | F | if $params->{'tables'} |
| 454 | 100 | T | F | if defined $params->{'output_dir'} |
| 679 | 100 | T | F | unless &blessed($self) and $self->isa(__PACKAGE__) |
| 690 | 100 | T | F | unless defined $input->{'database'} |
| 725 | 100 | T | F | if ($self->{'dry_run'}) |
| 732 | 100 | T | F | @{$tables;} ? : |
| 733 | 100 | T | F | $failed ? : |
| 746 | 100 | T | F | unless (-e $database) |
| 749 | 100 | T | F | unless -f _ |
| 750 | 100 | T | F | unless -r _ |
| 766 | 100 | T | F | unless $programs{$program} = $self->_find_program($program) |
| 773 | 100 | T | F | if ($self->{'show_counts'}) |
| 774 | 100 | T | F | if (my $path = $self->_find_program($MDB_COUNT)) { } |
| 797 | 100 | T | F | if defined $_ |
| 800 | 100 | T | F | if defined $path |
| 801 | 100 | T | F | if ($path and $self->{'verbose'}) |
| 840 | 100 | T | F | if length $_ |
| 852 | 100 | T | F | $table =~ /$SYSTEM_TABLE_RE/ ? : |
| 863 | 100 | T | F | unless $self->{'tables'} |
| 870 | 100 | T | F | if (@missing) |
| 886 | 100 | T | F | if -d $dir |
| 891 | 100 | T | F | if (@{$errors;} or not -d $dir) |
| 896 | 100 | T | F | @{$errors;} ? : |
| 100 | T | F | $mine ? : |
| 921 | 100 | T | F | if ($self->{'progress'}) |
| 926 | 100 | T | F | if eval {
do {
$self->_export_table($database, $table);
1
}
} |
| 931 | 100 | T | F | if $self->{'interrupted'} |
| 957 | 100 | T | F | if (not $self->{'overwrite'} and -e $outfile || -l $outfile) |
| 966 | 100 | T | F | if ($self->{'encoding'} eq $ENC_CP1252) { } |
| 971 | 100 | T | F | if $self->{'encoding'} eq $ENC_UTF8_BOM |
| 972 | 100 | T | F | unless $tmp->flush |
| 981 | 100 | T | F | $self->{'show_counts'} ? : |
| 982 | 100 | T | F | if (defined $rows) { } |
| 1014 | 100 | T | F | unless defined $chars |
| 1017 | 100 | T | F | unless defined $bytes |
| 1048 | 100 | T | F | unless $ok |
| 1070 | 100 | T | F | unless defined $rows |
| 1088 | 100 | T | F | if defined $rows |
| 1090 | 100 | T | F | if $self->{'interrupted'} |
| 1118 | 50 | T | F | if length $_ |
| 1131 | 100 | T | F | if ($status == -1) |
| 1134 | 100 | T | F | if ($status & 127) |
| 1139 | 100 | T | F | if ($signal eq "INT" or $signal eq "QUIT") |
| 1145 | 100 | T | F | if ($status) |
| 1175 | 50 | T | F | if (utf8::is_utf8($name)) { } |
| 1185 | 100 | T | F | if $name =~ /$RESERVED_NAME_RE/ |
| 1186 | 100 | T | F | unless length $name |
| 1196 | 100 | T | F | if (exists $$used{lc $file}) |
| 1217 | 100 | T | F | $counts ? : |
| 1220 | 100 | T | F | $counts ? : |
| 1232 | 100 | T | F | if $counts |
| 1263 | 100 | T | F | unless my $logger = $self->{'logger'} |
| 1271 | 100 | T | F | unless (eval {
do {
$logger->$level($self->_printable($self->i18n($key, $args)));
1
}
}) |
| 1311 | 100 | T | F | ($value // '') =~ /$UNTAINT_RE/ ? : |
| 1325 | 100 | T | F | &blessed($error) && $error->can('errno') ? : |