| line | % | coverage | branch |
|---|
| 631 | 100 | T | F | unless (defined $status or eval {
do {
"App::Access2CSV::Exporter"->new(%settings);
1
}
}) |
| 635 | 100 | T | F | unless (defined $status) |
| 642 | 100 | T | F | $argv[0] eq $STDIN_NAME ? : |
| 643 | 100 | T | F | $piped ? : |
| 647 | 100 | T | F | $logger ? : |
| 649 | 100 | T | F | unless defined $status |
| 686 | 100 | T | F | unless $parsed |
| 687 | 100 | T | F | if $help |
| 688 | 100 | T | F | if ($show_version) |
| 695 | 100 | T | F | if (@{$argv;} != 1 or not length($argv->[0] // "")) |
| 700 | 50 | T | F | if ($argv->[0] eq $STDIN_NAME and -t STDIN) |
| 717 | 100 | T | F | $status == $EXIT_OK ? : |
| 100 | T | F | defined $message ? : |
| 736 | 100 | T | F | unless length($opt->{'log'} // "") |
| 742 | 100 | T | F | if (-l $file) |
| 748 | 50 | T | F | unless ($file) = $file =~ /\A([^\x00]+)\z/s |
| 755 | 100 | T | F | unless eval {
do {
&App::Access2CSV::sysopen(my $fh, $file, 1089 | _no_follow());
&App::Access2CSV::close($fh);
1
}
} |
| 763 | 100 | T | F | $opt->{'verbose'} ? : |
| 768 | 100 | T | F | unless $logger |
| 806 | 100 | T | F | unless (eval {
do {
while (my $got = &App::Access2CSV::read("STDIN", \my $buffer, $READ_CHUNK)) {
do {
print {$copy;} $buffer;
$total += $got
};
} ;
1
}
}) |
| 807 | 100 | T | F | if $interrupted |
| 811 | 100 | T | F | unless $total |
| 814 | 50 | T | F | unless $copy->flush |
| 854 | 100 | T | F | &blessed($error) && $error->can('errno') && length $error->errno ? : |
| 878 | 100 | T | F | length($error // '') ? : |
| 879 | 100 | T | F | $verbose ? : |