| line |
true |
false |
branch |
|
25
|
0 |
0 |
unless (-r $file and ref $stampref eq 'ARRAY') |
|
45
|
0 |
0 |
unless rename $file, "$file.bk" |
|
49
|
0 |
0 |
unless ($doc->canModify) |
|
54
|
0 |
0 |
unless $doc->addFont(1, 'Times-Roman', 'arXivStAmP') |
|
56
|
0 |
0 |
unless $doc->cleanoutput($file) |
|
58
|
0 |
0 |
unless (eval {
do {
my $doc = 'CAM::PDF'->new("$file.bk") || cluck("$CAM::PDF::errstr\n");
unless ($doc->canModify) {
'TeX::AutoTeX::FatalException'->throw("This PDF forbids modification\n");
} ;
$doc->appendPageContent(1, $pdfstamp);
cluck("$CAM::PDF::errstr\n") unless $doc->addFont(1, 'Times-Roman', 'arXivStAmP');
$doc->preserveOrder;
cluck("$CAM::PDF::errstr\n") unless $doc->cleanoutput($file);
1
}
}) |
|
59
|
0 |
0 |
unless rename "$file.bk", $file |
|
62
|
0 |
0 |
if ($@) |
|
63
|
0 |
0 |
unless rename "$file.bk", $file |