| line |
true |
false |
branch |
|
54
|
0 |
0 |
unless my $pdf_in = $opt{'pdf_in'} |
|
55
|
0 |
0 |
unless defined $xml |
|
56
|
0 |
0 |
unless my $pdf_out = $opt{'pdf_out'} |
|
58
|
0 |
0 |
unless exists $CONFORMANCE{$profile} |
|
60
|
0 |
0 |
unless -r $pdf_in |
|
63
|
0 |
0 |
unless $icc_path and -r $icc_path |
|
73
|
0 |
0 |
if ($opt{'tmp_dir'}) { } |
|
74
|
0 |
0 |
unless -d $opt{'tmp_dir'} |
|
105
|
0 |
0 |
unless open my $pfh, ">:raw", $ps_fp |
|
128
|
0 |
0 |
if (open my $efh, "<:raw", $stderr_fp) |
|
134
|
0 |
0 |
if ($rc != 0) |
|
137
|
0 |
0 |
unless (-s $pdf_out) |
|
145
|
0 |
0 |
unless $ok |
|
159
|
0 |
0 |
unless open $saved_out, ">&", \*STDOUT |
|
160
|
0 |
0 |
unless open $saved_err, ">&", \*STDERR |
|
164
|
0 |
0 |
unless (open STDOUT, ">", \$buf) |
|
166
|
0 |
0 |
unless (open STDERR, ">", \$buf) |
|
174
|
0 |
0 |
unless (eval {
do {
my $pdf = "PDF::Builder"->open($pdf_path);
$pdf->xml_metadata($xmp_bytes);
$pdf->saveas($pdf_path);
1
}
}) |
|
178
|
0 |
0 |
if (length $buf and ref $on_warning eq "CODE") |
|
210
|
5 |
0 |
unless -d $base |
|
213
|
0 |
0 |
if @hits |
|
219
|
0 |
1 |
unless (eval {
do {
$share_dir = dist_dir("PDF-FacturX");
1
}
}) |
|
226
|
1 |
0 |
if -r $bundled |
|
233
|
0 |
0 |
if $max_depth < 0 |
|
234
|
0 |
0 |
unless opendir my $dh, $dir |
|
235
|
0 |
0 |
if $_ ne "." |
|
240
|
0 |
0 |
if (-d $p) { } |
|
|
0 |
0 |
elsif ($e eq $name) { } |
|
437
|
0 |
0 |
unless $s =~ m[[^\w./=:-]] |