| line |
true |
false |
branch |
|
314
|
99 |
118 |
if (defined $opts{'-compress'} and not defined $opts{'compress'}) |
|
315
|
0 |
217 |
if (defined $opts{'-diaglevel'} and not defined $opts{'diaglevel'}) |
|
316
|
1 |
216 |
if (defined $opts{'-outver'} and not defined $opts{'outver'}) |
|
317
|
0 |
217 |
if (defined $opts{'-msgver'} and not defined $opts{'msgver'}) |
|
318
|
0 |
217 |
if (defined $opts{'-file'} and not defined $opts{'file'}) |
|
333
|
217 |
0 |
unless $self->{'pages'}{'Resources'}->is_obj($self->{'pdf'}) |
|
342
|
152 |
65 |
if (exists $opts{'compress'}) { } |
|
351
|
0 |
217 |
if (exists $opts{'diaglevel'}) { } |
|
353
|
0 |
0 |
if ($diaglevel < 0 or $diaglevel > 5) |
|
363
|
1 |
216 |
if (defined $opts{'outver'}) |
|
364
|
1 |
0 |
if ($opts{'outver'} >= 1.4) { } |
|
370
|
1 |
216 |
if (defined $opts{'msgver'}) |
|
371
|
1 |
0 |
if ($opts{'msgver'} == 0 or $opts{'msgver'} == 1) { } |
|
377
|
0 |
217 |
if ($opts{'file'}) |
|
413
|
1 |
0 |
if (@_) |
|
441
|
4 |
4 |
unless (scalar @_) |
|
442
|
0 |
4 |
unless ($self->{'pages'}{$type}) |
|
443
|
0 |
0 |
if $type eq "MediaBox" |
|
446
|
0 |
0 |
if $type eq "CropBox" |
|
521
|
0 |
8 |
unless -f $file |
|
522
|
0 |
8 |
unless -r $file |
|
526
|
0 |
8 |
unless CORE::open $scalar_fh, "+<", \$content |
|
530
|
0 |
8 |
unless CORE::open $disk_fh, "<", $file |
|
539
|
8 |
0 |
if ($data =~ /%%EOF$/) |
|
592
|
0 |
18 |
if (defined $opts{'-diags'} and not defined $opts{'diags'}) |
|
593
|
0 |
18 |
if (defined $opts{'-compress'} and not defined $opts{'compress'}) |
|
594
|
0 |
18 |
if (defined $opts{'-diaglevel'} and not defined $opts{'diaglevel'}) |
|
604
|
0 |
18 |
if (defined $self->{'diaglevel'}) |
|
605
|
0 |
18 |
if ($diaglevel < 0 or $diaglevel > 5) |
|
610
|
0 |
18 |
if (defined $newVer) |
|
613
|
0 |
0 |
if ($pos < 0) |
|
617
|
0 |
0 |
if ($verStr =~ /^%PDF-(\d+)\.(\d+)/) { } |
|
622
|
0 |
0 |
if ($newVer > $currentVer) |
|
623
|
0 |
0 |
if (length $newVer > length $currentVer) { } |
|
628
|
0 |
0 |
if (length $newVer < length $currentVer) |
|
639
|
0 |
18 |
unless CORE::open $fh, "+<", \$content |
|
658
|
3 |
15 |
if (exists $opts{'compress'}) { } |
|
667
|
0 |
18 |
if (exists $opts{'diaglevel'}) { } |
|
669
|
0 |
0 |
if ($self->{'diaglevel'} < 0 or $self->{'diaglevel'} > 5) |
|
722
|
7 |
171 |
if ($self->{'opened_scalar'}) { } |
|
728
|
0 |
171 |
unless CORE::open $fh, ">", \$string |
|
769
|
0 |
0 |
if ($self->{'opened_scalar'}) { } |
|
|
0 |
0 |
elsif ($self->{'partial_save'}) { } |
|
783
|
18 |
0 |
if (defined $object->{'Resources'}) |
|
793
|
0 |
20 |
if ($page->{'Type'}->val eq 'Pages') { } |
|
799
|
20 |
0 |
if (defined $page->{'Resources'}) |
|
853
|
1 |
0 |
if ($self->{'opened_scalar'}) { } |
|
|
0 |
0 |
elsif ($self->{'partial_save'}) { } |
|
856
|
0 |
1 |
unless CORE::open $fh, ">", $file |
|
900
|
0 |
0 |
if (defined $file) |
|
907
|
0 |
0 |
if ($self->{'opened_scalar'}) { } |
|
|
0 |
0 |
elsif ($self->{'partial_save'}) { } |
|
956
|
179 |
0 |
if defined $self->{'pdf'} |
|
1095
|
0 |
1 |
unless $value =~ /^D:([0-9]{4}) # D:YYYY (required)
(?:([01][0-9]) # Month (01-12)
(?:([0123][0-9]) # Day (01-31)
(?:([012][0-9]) # Hour (00-23)
(?:([012345][0-9]) # Minute (00-59)
(?:([012345][0-9]) # Second (00-59)
(?:([Z+-]) # UT Offset Direction
(?:([012][0-9]) # UT Offset Hours
(?:\'([012345][0-9]) # UT Offset Minutes
)?)?)?)?)?)?)?)?$/x |
|
1110
|
1 |
0 |
if (defined $month) |
|
1111
|
0 |
1 |
unless $month >= 1 and $month <= 12 |
|
1113
|
1 |
0 |
if (defined $day) |
|
1114
|
0 |
1 |
unless $day >= 1 and $day <= 31 |
|
1116
|
1 |
0 |
if (defined $hour) |
|
1117
|
0 |
1 |
unless $hour <= 23 |
|
1119
|
1 |
0 |
if (defined $minute) |
|
1120
|
0 |
1 |
unless $minute <= 59 |
|
1122
|
1 |
0 |
if (defined $second) |
|
1123
|
0 |
1 |
unless $second <= 59 |
|
1125
|
1 |
0 |
if (defined $od) |
|
1126
|
0 |
1 |
if $od eq "Z" and defined $oh |
|
1128
|
0 |
1 |
if (defined $oh) |
|
1129
|
0 |
0 |
unless $oh <= 23 |
|
1131
|
0 |
1 |
if (defined $om) |
|
1132
|
0 |
0 |
unless $om <= 59 |
|
1157
|
0 |
6 |
unless (defined $field) |
|
1158
|
0 |
0 |
unless exists $self->{'pdf'}{'Info'} |
|
1162
|
0 |
0 |
if $key =~ /^ / |
|
1163
|
0 |
0 |
unless defined $self->{'pdf'}{'Info'}{$key} |
|
1170
|
3 |
3 |
if (@_) |
|
1172
|
0 |
3 |
if defined $value and not length $value |
|
1174
|
1 |
2 |
if ($field eq "CreationDate" or $field eq "ModDate") |
|
1175
|
1 |
0 |
if (defined $value) |
|
1176
|
0 |
1 |
unless $value =~ /^D:/ |
|
1177
|
0 |
1 |
unless _is_date($value) |
|
1181
|
3 |
0 |
if (exists $self->{'pdf'}{'Info'}) { } |
|
1182
|
0 |
0 |
unless defined $value |
|
1190
|
2 |
1 |
if (defined $value) { } |
|
1201
|
0 |
3 |
unless $self->{'pdf'}{'Info'} |
|
1203
|
1 |
2 |
unless $self->{'pdf'}{'Info'}{$field} |
|
1224
|
217 |
3 |
if (not defined $self->{'pdf'}{'Info'}) { } |
|
1233
|
220 |
0 |
if (scalar @_) |
|
1235
|
1542 |
218 |
unless defined $opt{$k} |
|
1241
|
220 |
0 |
if (defined $self->{'pdf'}{'Info'}) |
|
1244
|
1540 |
220 |
unless defined $self->{'pdf'}{'Info'}{$k} |
|
1246
|
0 |
220 |
if (unpack("n", $opt{$k}) == 65534 or unpack("n", $opt{$k}) == 65279) |
|
1277
|
0 |
0 |
if (scalar @attr) |
|
1296
|
0 |
0 |
if (not defined $self->{'catalog'}{'Metadata'}) { } |
|
1311
|
0 |
0 |
if (defined $value) |
|
1338
|
0 |
0 |
if (@_) |
|
1388
|
3 |
8 |
if (defined $value) |
|
1435
|
1 |
2 |
if ($PDFver > $version) { } |
|
1436
|
0 |
1 |
if ($msgVer) |
|
1467
|
0 |
18 |
if ($PDFver > $version) { } |
|
1468
|
0 |
0 |
if ($msgVer) |
|
1492
|
0 |
0 |
defined $self->{'pdf'}{'Encrypt'} ? : |
|
1522
|
1 |
3 |
if ($obj) { } |
|
1531
|
3 |
0 |
unless $obj->is_obj($self->{'pdf'}) |
|
1555
|
0 |
0 |
unless ref $page |
|
1608
|
0 |
0 |
unless (@_) |
|
1609
|
0 |
0 |
unless $self->{'catalog'}{'PageLayout'} |
|
1611
|
0 |
0 |
if $layout eq "SinglePage" |
|
1612
|
0 |
0 |
if $layout eq "OneColumn" |
|
1613
|
0 |
0 |
if $layout eq "TwoColumnLeft" |
|
1614
|
0 |
0 |
if $layout eq "TwoColumnRight" |
|
1615
|
0 |
0 |
if $layout eq "TwoPageLeft" |
|
1616
|
0 |
0 |
if $layout eq "TwoPageRight" |
|
1622
|
0 |
0 |
$name eq 'two_page_right' ? : |
|
|
0 |
0 |
$name eq 'two_page_left' ? : |
|
|
0 |
0 |
$name eq 'two_column_right' ? : |
|
|
0 |
0 |
$name eq 'two_column_left' ? : |
|
|
0 |
0 |
$name eq 'one_column' ? : |
|
|
0 |
0 |
$name eq 'single_page' ? : |
|
1629
|
0 |
0 |
unless $layout |
|
1681
|
0 |
0 |
unless (@_) |
|
1682
|
0 |
0 |
unless $self->{'catalog'}{'PageMode'} |
|
1684
|
0 |
0 |
if $mode eq "UseNone" |
|
1685
|
0 |
0 |
if $mode eq "UseOutlines" |
|
1686
|
0 |
0 |
if $mode eq "UseThumbs" |
|
1687
|
0 |
0 |
if $mode eq "FullScreen" |
|
1688
|
0 |
0 |
if $mode eq "UseOC" |
|
1689
|
0 |
0 |
if $mode eq "UseAttachments" |
|
1695
|
0 |
0 |
$name eq 'attachments' ? : |
|
|
0 |
0 |
$name eq 'optional_content' ? : |
|
|
0 |
0 |
$name eq 'full_screen' ? : |
|
|
0 |
0 |
$name eq 'thumbnails' ? : |
|
|
0 |
0 |
$name eq 'outlines' ? : |
|
|
0 |
0 |
$name eq 'none' ? : |
|
1702
|
0 |
0 |
unless $mode |
|
1724
|
0 |
0 |
unless (@_) |
|
1747
|
0 |
222 |
if (defined $opts{'-fullscreen'} and not defined $opts{'fullscreen'}) |
|
1748
|
0 |
222 |
if (defined $opts{'-thumbs'} and not defined $opts{'thumbs'}) |
|
1749
|
0 |
222 |
if (defined $opts{'-outlines'} and not defined $opts{'outlines'}) |
|
1751
|
0 |
222 |
if (defined $opts{'-singlepage'} and not defined $opts{'singlepage'}) |
|
1752
|
0 |
222 |
if (defined $opts{'-onecolumn'} and not defined $opts{'onecolumn'}) |
|
1753
|
0 |
222 |
if (defined $opts{'-twocolumnleft'} and not defined $opts{'twocolumnleft'}) |
|
1754
|
0 |
222 |
if (defined $opts{'-twocolumnright'} and not defined $opts{'twocolumnright'}) |
|
1756
|
0 |
222 |
if (defined $opts{'-hidetoolbar'} and not defined $opts{'hidetoolbar'}) |
|
1757
|
0 |
222 |
if (defined $opts{'-hidemenubar'} and not defined $opts{'hidemenubar'}) |
|
1758
|
0 |
222 |
if (defined $opts{'-hidewindowui'} and not defined $opts{'hidewindowui'}) |
|
1759
|
0 |
222 |
if (defined $opts{'-fitwindow'} and not defined $opts{'fitwindow'}) |
|
1760
|
0 |
222 |
if (defined $opts{'-centerwindow'} and not defined $opts{'centerwindow'}) |
|
1761
|
0 |
222 |
if (defined $opts{'-displaytitle'} and not defined $opts{'displaytitle'}) |
|
1762
|
0 |
222 |
if (defined $opts{'-righttoleft'} and not defined $opts{'righttoleft'}) |
|
1763
|
0 |
222 |
if (defined $opts{'-afterfullscreenthumbs'} and not defined $opts{'afterfullscreenthumbs'}) |
|
1764
|
0 |
222 |
if (defined $opts{'-afterfullscreenoutlines'} and not defined $opts{'afterfullscreenoutlines'}) |
|
1765
|
0 |
222 |
if (defined $opts{'-printscalingnone'} and not defined $opts{'printscalingnone'}) |
|
1766
|
1 |
221 |
if (defined $opts{'-simplex'} and not defined $opts{'simplex'}) |
|
1767
|
1 |
221 |
if (defined $opts{'-duplexfliplongedge'} and not defined $opts{'duplexfliplongedge'}) |
|
1768
|
1 |
221 |
if (defined $opts{'-duplexflipshortedge'} and not defined $opts{'duplexflipshortedge'}) |
|
1770
|
2 |
220 |
if (defined $opts{'-firstpage'} and not defined $opts{'firstpage'}) |
|
1771
|
0 |
222 |
if (defined $opts{'-fit'} and not defined $opts{'fit'}) |
|
1772
|
0 |
222 |
if (defined $opts{'-fith'} and not defined $opts{'fith'}) |
|
1773
|
0 |
222 |
if (defined $opts{'-fitb'} and not defined $opts{'fitb'}) |
|
1774
|
0 |
222 |
if (defined $opts{'-fitbh'} and not defined $opts{'fitbh'}) |
|
1775
|
0 |
222 |
if (defined $opts{'-fitv'} and not defined $opts{'fitv'}) |
|
1776
|
0 |
222 |
if (defined $opts{'-fitbv'} and not defined $opts{'fitbv'}) |
|
1777
|
0 |
222 |
if (defined $opts{'-fitr'} and not defined $opts{'fitr'}) |
|
1778
|
0 |
222 |
if (defined $opts{'-xyz'} and not defined $opts{'xyz'}) |
|
1781
|
0 |
222 |
if ($opts{'fullscreen'}) { } |
|
|
0 |
222 |
elsif ($opts{'thumbs'}) { } |
|
|
0 |
222 |
elsif ($opts{'outlines'}) { } |
|
1792
|
0 |
222 |
if ($opts{'singlepage'}) { } |
|
|
0 |
222 |
elsif ($opts{'onecolumn'}) { } |
|
|
0 |
222 |
elsif ($opts{'twocolumnleft'}) { } |
|
|
0 |
222 |
elsif ($opts{'twocolumnright'}) { } |
|
1808
|
0 |
222 |
if ($opts{'hidetoolbar'}) |
|
1811
|
0 |
222 |
if ($opts{'hidemenubar'}) |
|
1814
|
0 |
222 |
if ($opts{'hidewindowui'}) |
|
1817
|
0 |
222 |
if ($opts{'fitwindow'}) |
|
1820
|
0 |
222 |
if ($opts{'centerwindow'}) |
|
1823
|
0 |
222 |
if ($opts{'displaytitle'}) |
|
1826
|
0 |
222 |
if ($opts{'righttoleft'}) |
|
1830
|
0 |
222 |
if ($opts{'afterfullscreenthumbs'}) { } |
|
|
0 |
222 |
elsif ($opts{'afterfullscreenoutlines'}) { } |
|
1838
|
0 |
222 |
if ($opts{'printscalingnone'}) |
|
1842
|
1 |
221 |
if ($opts{'simplex'}) { } |
|
|
1 |
220 |
elsif ($opts{'duplexfliplongedge'}) { } |
|
|
1 |
219 |
elsif ($opts{'duplexflipshortedge'}) { } |
|
1851
|
2 |
220 |
if ($opts{'firstpage'}) |
|
1853
|
0 |
2 |
unless scalar keys %args |
|
1857
|
1 |
1 |
unless ref $page |
|
1860
|
2 |
0 |
if (defined $args{'-fit'} and not defined $args{'fit'}) |
|
1861
|
0 |
2 |
if (defined $args{'-fith'} and not defined $args{'fith'}) |
|
1862
|
0 |
2 |
if (defined $args{'-fitb'} and not defined $args{'fitb'}) |
|
1863
|
0 |
2 |
if (defined $args{'-fitbh'} and not defined $args{'fitbh'}) |
|
1864
|
0 |
2 |
if (defined $args{'-fitv'} and not defined $args{'fitv'}) |
|
1865
|
0 |
2 |
if (defined $args{'-fitbv'} and not defined $args{'fitbv'}) |
|
1866
|
0 |
2 |
if (defined $args{'-fitr'} and not defined $args{'fitr'}) |
|
1867
|
0 |
2 |
if (defined $args{'-xyz'} and not defined $args{'xyz'}) |
|
1869
|
2 |
0 |
if (defined $args{'fit'}) { } |
|
|
0 |
0 |
elsif (defined $args{'fith'}) { } |
|
|
0 |
0 |
elsif (defined $args{'fitb'}) { } |
|
|
0 |
0 |
elsif (defined $args{'fitbh'}) { } |
|
|
0 |
0 |
elsif (defined $args{'fitv'}) { } |
|
|
0 |
0 |
elsif (defined $args{'fitbv'}) { } |
|
|
0 |
0 |
elsif (defined $args{'fitr'}) { } |
|
|
0 |
0 |
elsif (defined $args{'xyz'}) { } |
|
1882
|
0 |
0 |
unless scalar @{$args{'fitr'};} == 4 |
|
1886
|
0 |
0 |
unless scalar @{$args{'xyz'};} == 3 |
|
1899
|
0 |
0 |
if (defined $object->{'Resources'}) |
|
1909
|
0 |
0 |
if ($page->{'Type'}->val eq 'Pages') { } |
|
1915
|
0 |
0 |
if (defined $page->{'Resources'}) |
|
1963
|
192 |
2 |
if ($index == 0) { } |
|
1974
|
192 |
2 |
if ($index == 0) { } |
|
|
0 |
2 |
elsif ($index < 0) { } |
|
2020
|
0 |
7 |
if ($index == 0) { } |
|
|
0 |
7 |
elsif ($index < 0) { } |
|
2027
|
0 |
7 |
unless ref $page |
|
2029
|
6 |
1 |
if (ref $page ne "PDF::Builder::Page") |
|
2036
|
0 |
6 |
if ($rotate = $page->find_prop('Rotate') and not $page->{' opened'}) { } |
|
2039
|
0 |
0 |
if ($rotate != 0 and not $self->default('nounrotate')) { } |
|
2042
|
0 |
0 |
if ($media = $page->find_prop($mediatype)) { } |
|
2046
|
0 |
0 |
if $mediatype ne "MediaBox" |
|
2048
|
0 |
0 |
if ($rotate == 90) { } |
|
|
0 |
0 |
elsif ($rotate == 180) { } |
|
|
0 |
0 |
elsif ($rotate == 270) { } |
|
2049
|
0 |
0 |
if $mediatype eq "MediaBox" |
|
2052
|
0 |
0 |
if $mediatype eq "MediaBox" |
|
2054
|
0 |
0 |
if $mediatype eq "MediaBox" |
|
2066
|
4 |
2 |
if (defined $page->{'Contents'} and not $page->{' opened'}) |
|
2072
|
0 |
4 |
if ($self->default("pageencaps")) |
|
2079
|
0 |
4 |
if ($self->default("pageencaps")) |
|
2084
|
4 |
0 |
if ($self->{'forcecompress'} eq "flate" or $self->{'forcecompress'} =~ /^[1-9]\d*$/) |
|
2151
|
0 |
1 |
unless (ref $s_pdf and $s_pdf->isa("PDF::Builder")) |
|
2155
|
0 |
1 |
if (ref $s_idx eq 'PDF::Builder::Page') { } |
|
2159
|
0 |
1 |
unless defined $s_page |
|
2162
|
0 |
1 |
if (ref $t_idx eq 'PDF::Builder::Page') { } |
|
2165
|
0 |
1 |
if ($self->pages < $t_idx) { } |
|
2183
|
4 |
1 |
unless defined $prop |
|
2194
|
0 |
0 |
if (exists $s_page->{'Annots'} and $s_page->{'Annots'} and $self->{'copyannots'}) |
|
2197
|
0 |
0 |
if (my $a = $s_pdf->{'pdf'}{'Root'}->realise->{'AcroForm'}) |
|
2230
|
0 |
0 |
if $AcroForm |
|
2246
|
0 |
0 |
unless defined $a->{$k} |
|
2252
|
0 |
0 |
if $AcroForm and $t_a->{'Subtype'}->val eq "Widget" |
|
2255
|
0 |
0 |
if $AcroForm |
|
2306
|
0 |
4 |
unless (ref $s_pdf and $s_pdf->isa("PDF::Builder")) |
|
2314
|
1 |
3 |
if (ref $s_idx eq 'PDF::Builder::Page') { } |
|
2318
|
0 |
3 |
unless defined $s_page |
|
2329
|
0 |
4 |
unless defined $s_page->find_prop($k) |
|
2335
|
0 |
4 |
unless defined $xo->{'BBox'} |
|
2339
|
0 |
4 |
unless defined $s_page->{$k} |
|
2340
|
0 |
4 |
if ref($s_page->{$k}) =~ /Objind$/ |
|
2343
|
27 |
5 |
unless defined $s_page->{$k}{$sk} |
|
2344
|
0 |
5 |
if ref($s_page->{$k}{$sk}) =~ /Objind$/ |
|
2346
|
9 |
1 |
if $ssk =~ /^ / |
|
2357
|
0 |
4 |
unless ($s_page->{' opened'}) |
|
2363
|
3 |
1 |
if (defined $s_page->{'Contents'}) |
|
2370
|
3 |
0 |
if ($k->{' nofilt'}) { } |
|
2379
|
2 |
1 |
if $self->{'forcecompress'} eq "flate" or $self->{'forcecompress'} =~ /^[1-9]\d*$/ |
|
2390
|
1 |
517 |
if (ref($source_object) =~ /Objind$/) |
|
2394
|
0 |
518 |
if defined $$object_cache{scalar $source_object} |
|
2400
|
1 |
517 |
if $source_object->is_obj($source_pdf) |
|
2404
|
7 |
511 |
if (ref($source_object) =~ /Array$/) { } |
|
|
2 |
509 |
elsif (ref($source_object) =~ /Dict$/) { } |
|
2407
|
0 |
501 |
if ref($k) =~ /Objind$/ |
|
2411
|
2 |
0 |
unless scalar @keys |
|
2413
|
1 |
11 |
if $k =~ /^ / |
|
2414
|
0 |
11 |
unless defined $source_object->{$k} |
|
2417
|
0 |
2 |
if ($source_object->{' stream'}) |
|
2418
|
0 |
0 |
if ($target_object->{'Filter'}) { } |
|
2588
|
0 |
8 |
if (defined $opts->{'-style'} and not defined $opts->{'style'}) |
|
2589
|
0 |
8 |
if (defined $opts->{'-prefix'} and not defined $opts->{'prefix'}) |
|
2590
|
0 |
8 |
if (defined $opts->{'-start'} and not defined $opts->{'start'}) |
|
2595
|
6 |
2 |
if (defined $opts->{'style'}) { } |
|
2596
|
6 |
0 |
if ($opts->{'style'} ne 'nocounter') { } |
|
2601
|
1 |
2 |
$opts->{'style'} eq 'alpha' ? : |
|
|
1 |
3 |
$opts->{'style'} eq 'Alpha' ? : |
|
|
1 |
4 |
$opts->{'style'} eq 'roman' ? : |
|
|
1 |
5 |
$opts->{'style'} eq 'Roman' ? : |
|
2610
|
1 |
7 |
if (defined $opts->{'prefix'}) |
|
2615
|
1 |
7 |
if (defined $opts->{'start'}) |
|
2640
|
0 |
0 |
if (float($value) <= 0) |
|
2648
|
0 |
0 |
if (defined $self->{'pages'}{'MediaBox'}) |
|
2649
|
0 |
0 |
if ($value != 1) |
|
2664
|
218 |
16 |
if (scalar @corners and $corners[0] =~ /[a-z]/i) |
|
2666
|
0 |
234 |
if (scalar @corners == 3) { } |
|
2670
|
0 |
0 |
if (defined $opts{'-orient'} and not defined $opts{'orient'}) |
|
2673
|
0 |
0 |
if (defined $opts{'orient'}) |
|
2674
|
0 |
0 |
if ($opts{'orient'} =~ /^l/i) |
|
2687
|
0 |
234 |
if ($isName and $UU != 1) |
|
2702
|
8 |
248 |
unless (defined $self->{'pages'}{$boxname}) |
|
2703
|
2 |
6 |
if ($boxname eq 'CropBox') { } |
|
|
6 |
0 |
elsif ($boxname eq 'BleedBox' or $boxname eq 'TrimBox' or $boxname eq 'ArtBox') { } |
|
2708
|
0 |
6 |
if (defined $self->{'pages'}{'CropBox'}) { } |
|
2745
|
222 |
6 |
if (defined $corners[0]) |
|
2773
|
3 |
4 |
if (defined $corners[0]) |
|
2801
|
3 |
4 |
if (defined $corners[0]) |
|
2829
|
3 |
4 |
if (defined $corners[0]) |
|
2857
|
3 |
4 |
if (defined $corners[0]) |
|
2884
|
0 |
52 |
if (defined $opts{'-unicodemap'} and not defined $opts{'unicodemap'}) |
|
2889
|
0 |
52 |
if $opts{'unicodemap'} |
|
2906
|
0 |
0 |
if (defined $opts{'-afmfile'} and not defined $opts{'afmfile'}) |
|
2907
|
0 |
0 |
if (defined $opts{'-pfmfile'} and not defined $opts{'pfmfile'}) |
|
2908
|
0 |
0 |
if (defined $opts{'-unicodemap'} and not defined $opts{'unicodemap'}) |
|
2911
|
0 |
0 |
unless defined $opts{$o} |
|
2919
|
0 |
0 |
if $opts{'unicodemap'} |
|
2934
|
0 |
0 |
if (defined $opts{'-unicodemap'} and not defined $opts{'unicodemap'}) |
|
2935
|
0 |
0 |
if (defined $opts{'-noembed'} and not defined $opts{'noembed'}) |
|
2941
|
0 |
0 |
unless exists $opts{'unicodemap'} |
|
2942
|
0 |
0 |
unless exists $opts{'noembed'} |
|
2949
|
0 |
0 |
if $opts{'unicodemap'} |
|
3000
|
0 |
1 |
if (defined $opts{'-unicodemap'} and not defined $opts{'unicodemap'}) |
|
3006
|
0 |
1 |
if $opts{'unicodemap'} |
|
3084
|
0 |
0 |
if (defined $opts{'-encode'} and not defined $opts{'encode'}) |
|
3085
|
0 |
0 |
if (defined $opts{'-kerning'} and not defined $opts{'kerning'}) |
|
3086
|
0 |
0 |
if (defined $opts{'-dokern'} and not defined $opts{'dokern'}) |
|
3087
|
0 |
0 |
if (defined $opts{'-embed'} and not defined $opts{'embed'}) |
|
3088
|
0 |
0 |
if (defined $opts{'-afmfile'} and not defined $opts{'afmfile'}) |
|
3089
|
0 |
0 |
if (defined $opts{'-pfmfile'} and not defined $opts{'pfmfile'}) |
|
3091
|
0 |
0 |
if (exists $opts{'kerning'}) |
|
3097
|
0 |
0 |
if ("PDF::Builder::Resource::Font::CoreFont"->is_standard($name)) |
|
3102
|
0 |
0 |
$name =~ /\.bdf$/i ? : |
|
|
0 |
0 |
$name =~ /\.pf[ab]$/i ? : |
|
|
0 |
0 |
$name =~ /\.[ot]tf$/i ? : |
|
3106
|
0 |
0 |
if ($format eq 'truetype') { } |
|
|
0 |
0 |
elsif ($format eq 'type1') { } |
|
|
0 |
0 |
elsif ($format eq 'bitmap') { } |
|
|
0 |
0 |
elsif ($format) { } |
|
|
0 |
0 |
elsif ($name =~ /(\..*)$/) { } |
|
3110
|
0 |
0 |
if (exists $opts{'afm_file'}) |
|
3113
|
0 |
0 |
if (exists $opts{'pfm_file'}) |
|
3157
|
0 |
0 |
if ref $_[0] |
|
3158
|
0 |
0 |
if $_[0] eq "PDF::Builder" |
|
3179
|
0 |
38 |
if ref $_[0] |
|
3180
|
38 |
0 |
if $_[0] eq "PDF::Builder" |
|
3191
|
0 |
0 |
if -f $font |
|
3195
|
0 |
0 |
if -f "$directory/$font" |
|
3228
|
0 |
0 |
if (defined $opts{'-unicodemap'} and not defined $opts{'unicodemap'}) |
|
3230
|
0 |
0 |
unless (defined $opts{'-entry_point'}) |
|
3236
|
0 |
0 |
unless exists $opts{'unicodemap'} |
|
3242
|
0 |
0 |
if $opts{'unicodemap'} |
|
3342
|
0 |
3 |
if (ref $file eq 'GD::Image') { } |
|
|
3 |
0 |
elsif (ref $file) { } |
|
3351
|
0 |
3 |
unless (ref $file) |
|
3352
|
0 |
0 |
$file =~ /\.p[bgpn]m$/i ? : |
|
|
0 |
0 |
$file =~ /\.tiff?$/i ? : |
|
|
0 |
0 |
$file =~ /\.gif$/i ? : |
|
|
0 |
0 |
$file =~ /\.png$/i ? : |
|
|
0 |
0 |
$file =~ /\.jpe?g$/i ? : |
|
3360
|
1 |
2 |
if ($format eq 'jpeg') { } |
|
|
1 |
1 |
elsif ($format eq 'png') { } |
|
|
1 |
0 |
elsif ($format eq 'gif') { } |
|
|
0 |
0 |
elsif ($format eq 'tiff') { } |
|
|
0 |
0 |
elsif ($format eq 'pnm') { } |
|
|
0 |
0 |
elsif ($format) { } |
|
|
0 |
0 |
elsif (ref $file) { } |
|
|
0 |
0 |
elsif ($file =~ /(\..*)$/) { } |
|
3398
|
0 |
3 |
unless $bytes_read and $bytes_read == 8 |
|
3400
|
1 |
2 |
if $test =~ /^GIF\d\d[a-z]/ |
|
3401
|
1 |
1 |
if $test =~ /^\xFF\xD8\xFF/ |
|
3402
|
1 |
0 |
if $test =~ /^\x89PNG\x0D\x0A\x1A\x0A/ |
|
3403
|
0 |
0 |
if $test =~ /^\s*P[1-6]/ |
|
3450
|
4 |
0 |
if (defined $opts{'-nouseGT'} and not defined $opts{'nouseGT'}) |
|
3451
|
1 |
3 |
if (defined $opts{'-silent'} and not defined $opts{'silent'}) |
|
3455
|
0 |
4 |
if ($rc) |
|
3457
|
0 |
0 |
if (defined $opts{'nouseGT'} and $opts{'nouseGT'} == 1) |
|
3461
|
0 |
4 |
if ($rc == 1) { } |
|
3472
|
1 |
2 |
if ($rc == 0 and $MSG_COUNT[0]++ == 0) |
|
3475
|
0 |
1 |
if (not defined $opts{'silent'} or $opts{'silent'} == 0) |
|
3514
|
4 |
0 |
unless (defined $rc) |
|
3515
|
0 |
4 |
if ($rc) |
|
3517
|
0 |
0 |
if ($Graphics::TIFF::VERSION < $GrTFversion) |
|
3568
|
0 |
5 |
if (defined $opts{'-nouseIPL'} and not defined $opts{'nouseIPL'}) |
|
3569
|
0 |
5 |
if (defined $opts{'-silent'} and not defined $opts{'silent'}) |
|
3573
|
0 |
5 |
if ($rc) |
|
3575
|
0 |
0 |
if (defined $opts{'nouseIPL'} and $opts{'nouseIPL'} == 1) |
|
3579
|
0 |
5 |
if ($rc == 1) { } |
|
3590
|
1 |
3 |
if ($rc == 0 and $MSG_COUNT[1]++ == 0) |
|
3593
|
0 |
1 |
if (not defined $opts{'silent'} or $opts{'silent'} == 0) |
|
3631
|
5 |
0 |
unless (defined $rc) |
|
3632
|
0 |
5 |
if ($rc) |
|
3634
|
0 |
0 |
if ($Image::PNG::Libpng::VERSION < $LpngVersion) |
|
3785
|
0 |
0 |
if ($type eq 'act') { } |
|
|
0 |
0 |
elsif ($type eq 'web') { } |
|
|
0 |
0 |
elsif ($type eq 'hue') { } |
|
|
0 |
0 |
elsif ($type eq 'spot') { } |
|
|
0 |
0 |
elsif ($type eq 'device') { } |
|
4076
|
0 |
0 |
unless (defined $obj) |
|
4137
|
0 |
18 |
unless length $string |
|
4146
|
0 |
38 |
unless length $_ |
|
4153
|
0 |
171 |
unless length $rawObject |
|
4156
|
23 |
148 |
if ($rawObject =~ /^(.*)stream\s.*\sendstream(.*)$/s) |
|
4161
|
133 |
38 |
if ($rawObject =~ /^(.*?)\s?(\d+) (\d+) obj\s(.*)$/s or $rawObject =~ /^(.*?)\s?(\d+) (\d+) obj(.*)$/s) { } |
|
4170
|
9 |
124 |
if (defined $objList{$objKey} and $update > 0) |
|
4177
|
49 |
84 |
unless (defined $objList{$objKey}) |
|
4192
|
27 |
106 |
if ($rawObject =~ m[/Parent(\s+)(\d+)(\s+)(\d+)(\s+)R]) |
|
4209
|
20 |
113 |
if ($rawObject =~ m(/Kids(\s+)\[(.*)\])) |
|
4217
|
22 |
20 |
if ($str2 =~ /(\s+)(\d+)(\s+)(\d+)(\s+)R/) { } |
|
4241
|
18 |
115 |
if ($rawObject =~ m[/Type(\s+)/Catalog]) |
|
4243
|
0 |
18 |
if ($rawObject =~ m[/Version /(\d+)\.(\d+)]) |
|
4254
|
3 |
130 |
if ($rawObject =~ m[/Type(\s+)/XRef] or $rawObject =~ m[/Type/XRef]) |
|
4256
|
3 |
0 |
if ($rawObject =~ m[/Root(\s+)(\d+)(\s+)(\d+)(\s+)R]) |
|
4262
|
3 |
0 |
if ($rawObject =~ m[/Info(\s+)(\d+)(\s+)(\d+)(\s+)R]) |
|
4273
|
74 |
133 |
if ($rawObject =~ /(\d+)(\s+)(\d+)(\s+)R/) { } |
|
4285
|
63 |
11 |
unless (defined $objList{$_}) |
|
4291
|
19 |
110 |
unless (defined $objList{$_}) |
|
4300
|
18 |
20 |
if ($rawObject =~ /trailer/) |
|
4301
|
18 |
0 |
if ($rawObject =~ m[trailer(.*)/Info(\s+)(\d+)(\s+)(\d+)(\s+)R]s) |
|
4304
|
18 |
0 |
if ($rawObject =~ m[trailer(.*)/Root(\s+)(\d+)(\s+)(\d+)(\s+)R]s) |
|
4314
|
0 |
18 |
if (not defined $Root) { } |
|
4315
|
0 |
0 |
if $level >= $level_error |
|
4317
|
0 |
18 |
unless (defined $objList{$Root}) |
|
4319
|
0 |
0 |
if $level >= $level_error |
|
4325
|
0 |
18 |
if (not defined $Info) { } |
|
4326
|
0 |
0 |
if $level >= $level_note |
|
4328
|
0 |
18 |
unless (defined $objList{$Info}) |
|
4330
|
0 |
0 |
if $level >= $level_note |
|
4347
|
2 |
129 |
if ($objList{$thisObj}[$idx_defined] == 0) |
|
4348
|
0 |
2 |
if $level >= $level_note |
|
4354
|
17 |
114 |
if ($objList{$thisObj}[$idx_kid_cnt] > 0) |
|
4359
|
20 |
0 |
if ($objList{$child}[$idx_par_clmd] == -1) { } |
|
4364
|
0 |
0 |
if $level >= $level_error |
|
4369
|
20 |
0 |
if ($objList{$child}[$idx_defined] == 1) |
|
4371
|
0 |
20 |
if ($objList{$child}[$idx_parent] == -1) { } |
|
|
0 |
20 |
elsif ($objList{$child}[$idx_parent] != $thisObj) { } |
|
4372
|
0 |
0 |
if $level >= $level_error |
|
4376
|
0 |
0 |
if $level >= $level_error |
|
4384
|
8 |
123 |
if ($objList{$thisObj}[$idx_parent] == -1 and $objList{$thisObj}[$idx_refcount] == 0) |
|
4386
|
0 |
8 |
if $level >= $level_note |
|
4390
|
0 |
18 |
if ($level >= $level_dump) |
|
4399
|
0 |
18 |
if ($level >= $level_dumpself) |