| line |
true |
false |
branch |
|
333
|
99 |
118 |
if (defined $opts{'-compress'} and not defined $opts{'compress'}) |
|
334
|
0 |
217 |
if (defined $opts{'-diaglevel'} and not defined $opts{'diaglevel'}) |
|
335
|
1 |
216 |
if (defined $opts{'-outver'} and not defined $opts{'outver'}) |
|
336
|
0 |
217 |
if (defined $opts{'-msgver'} and not defined $opts{'msgver'}) |
|
337
|
0 |
217 |
if (defined $opts{'-file'} and not defined $opts{'file'}) |
|
352
|
217 |
0 |
unless $self->{'pages'}{'Resources'}->is_obj($self->{'pdf'}) |
|
361
|
152 |
65 |
if (exists $opts{'compress'}) { } |
|
370
|
0 |
217 |
if (exists $opts{'diaglevel'}) { } |
|
372
|
0 |
0 |
if ($diaglevel < 0 or $diaglevel > 5) |
|
382
|
1 |
216 |
if (defined $opts{'outver'}) |
|
383
|
1 |
0 |
if ($opts{'outver'} >= 1.4) { } |
|
389
|
1 |
216 |
if (defined $opts{'msgver'}) |
|
390
|
1 |
0 |
if ($opts{'msgver'} == 0 or $opts{'msgver'} == 1) { } |
|
396
|
0 |
217 |
if ($opts{'file'}) |
|
436
|
1 |
0 |
if (@_) |
|
464
|
4 |
4 |
unless (scalar @_) |
|
465
|
0 |
4 |
unless ($self->{'pages'}{$type}) |
|
466
|
0 |
0 |
if $type eq "MediaBox" |
|
469
|
0 |
0 |
if $type eq "CropBox" |
|
544
|
0 |
8 |
unless -f $file |
|
545
|
0 |
8 |
unless -r $file |
|
549
|
0 |
8 |
unless CORE::open $scalar_fh, "+<", \$content |
|
553
|
0 |
8 |
unless CORE::open $disk_fh, "<", $file |
|
562
|
8 |
0 |
if ($data =~ /%%EOF$/) |
|
615
|
0 |
18 |
if (defined $opts{'-diags'} and not defined $opts{'diags'}) |
|
616
|
0 |
18 |
if (defined $opts{'-compress'} and not defined $opts{'compress'}) |
|
617
|
0 |
18 |
if (defined $opts{'-diaglevel'} and not defined $opts{'diaglevel'}) |
|
627
|
0 |
18 |
if (defined $self->{'diaglevel'}) |
|
628
|
0 |
18 |
if ($diaglevel < 0 or $diaglevel > 5) |
|
633
|
0 |
18 |
if (defined $newVer) |
|
636
|
0 |
0 |
if ($pos < 0) |
|
640
|
0 |
0 |
if ($verStr =~ /^%PDF-(\d+)\.(\d+)/) { } |
|
645
|
0 |
0 |
if ($newVer > $currentVer) |
|
646
|
0 |
0 |
if (length $newVer > length $currentVer) { } |
|
651
|
0 |
0 |
if (length $newVer < length $currentVer) |
|
662
|
0 |
18 |
unless CORE::open $fh, "+<", \$content |
|
681
|
3 |
15 |
if (exists $opts{'compress'}) { } |
|
690
|
0 |
18 |
if (exists $opts{'diaglevel'}) { } |
|
692
|
0 |
0 |
if ($self->{'diaglevel'} < 0 or $self->{'diaglevel'} > 5) |
|
745
|
7 |
171 |
if ($self->{'opened_scalar'}) { } |
|
751
|
0 |
171 |
unless CORE::open $fh, ">", \$string |
|
792
|
0 |
0 |
if ($self->{'opened_scalar'}) { } |
|
|
0 |
0 |
elsif ($self->{'partial_save'}) { } |
|
806
|
18 |
0 |
if (defined $object->{'Resources'}) |
|
816
|
0 |
20 |
if ($page->{'Type'}->val eq 'Pages') { } |
|
822
|
20 |
0 |
if (defined $page->{'Resources'}) |
|
876
|
1 |
0 |
if ($self->{'opened_scalar'}) { } |
|
|
0 |
0 |
elsif ($self->{'partial_save'}) { } |
|
879
|
0 |
1 |
unless CORE::open $fh, ">", $file |
|
923
|
0 |
0 |
if (defined $file) |
|
930
|
0 |
0 |
if ($self->{'opened_scalar'}) { } |
|
|
0 |
0 |
elsif ($self->{'partial_save'}) { } |
|
979
|
179 |
0 |
if defined $self->{'pdf'} |
|
1118
|
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 |
|
1133
|
1 |
0 |
if (defined $month) |
|
1134
|
0 |
1 |
unless $month >= 1 and $month <= 12 |
|
1136
|
1 |
0 |
if (defined $day) |
|
1137
|
0 |
1 |
unless $day >= 1 and $day <= 31 |
|
1139
|
1 |
0 |
if (defined $hour) |
|
1140
|
0 |
1 |
unless $hour <= 23 |
|
1142
|
1 |
0 |
if (defined $minute) |
|
1143
|
0 |
1 |
unless $minute <= 59 |
|
1145
|
1 |
0 |
if (defined $second) |
|
1146
|
0 |
1 |
unless $second <= 59 |
|
1148
|
1 |
0 |
if (defined $od) |
|
1149
|
0 |
1 |
if $od eq "Z" and defined $oh |
|
1151
|
0 |
1 |
if (defined $oh) |
|
1152
|
0 |
0 |
unless $oh <= 23 |
|
1154
|
0 |
1 |
if (defined $om) |
|
1155
|
0 |
0 |
unless $om <= 59 |
|
1180
|
0 |
6 |
unless (defined $field) |
|
1181
|
0 |
0 |
unless exists $self->{'pdf'}{'Info'} |
|
1185
|
0 |
0 |
if $key =~ /^ / |
|
1186
|
0 |
0 |
unless defined $self->{'pdf'}{'Info'}{$key} |
|
1193
|
3 |
3 |
if (@_) |
|
1195
|
0 |
3 |
if defined $value and not length $value |
|
1197
|
1 |
2 |
if ($field eq "CreationDate" or $field eq "ModDate") |
|
1198
|
1 |
0 |
if (defined $value) |
|
1199
|
0 |
1 |
unless $value =~ /^D:/ |
|
1200
|
0 |
1 |
unless _is_date($value) |
|
1204
|
3 |
0 |
if (exists $self->{'pdf'}{'Info'}) { } |
|
1205
|
0 |
0 |
unless defined $value |
|
1213
|
2 |
1 |
if (defined $value) { } |
|
1224
|
0 |
3 |
unless $self->{'pdf'}{'Info'} |
|
1226
|
1 |
2 |
unless $self->{'pdf'}{'Info'}{$field} |
|
1247
|
217 |
3 |
if (not defined $self->{'pdf'}{'Info'}) { } |
|
1256
|
220 |
0 |
if (scalar @_) |
|
1258
|
1542 |
218 |
unless defined $opt{$k} |
|
1264
|
220 |
0 |
if (defined $self->{'pdf'}{'Info'}) |
|
1267
|
1540 |
220 |
unless defined $self->{'pdf'}{'Info'}{$k} |
|
1269
|
0 |
220 |
if (unpack("n", $opt{$k}) == 65534 or unpack("n", $opt{$k}) == 65279) |
|
1300
|
0 |
0 |
if (scalar @attr) |
|
1319
|
0 |
0 |
if (not defined $self->{'catalog'}{'Metadata'}) { } |
|
1334
|
0 |
0 |
if (defined $value) |
|
1361
|
0 |
0 |
if (@_) |
|
1411
|
3 |
8 |
if (defined $value) |
|
1458
|
1 |
2 |
if ($PDFver > $version) { } |
|
1459
|
0 |
1 |
if ($msgVer) |
|
1490
|
0 |
18 |
if ($PDFver > $version) { } |
|
1491
|
0 |
0 |
if ($msgVer) |
|
1515
|
0 |
0 |
defined $self->{'pdf'}{'Encrypt'} ? : |
|
1545
|
1 |
3 |
if ($obj) { } |
|
1554
|
3 |
0 |
unless $obj->is_obj($self->{'pdf'}) |
|
1633
|
0 |
0 |
unless (@_) |
|
1634
|
0 |
0 |
unless $self->{'catalog'}{'PageLayout'} |
|
1636
|
0 |
0 |
if $layout eq "SinglePage" |
|
1637
|
0 |
0 |
if $layout eq "OneColumn" |
|
1638
|
0 |
0 |
if $layout eq "TwoColumnLeft" |
|
1639
|
0 |
0 |
if $layout eq "TwoColumnRight" |
|
1640
|
0 |
0 |
if $layout eq "TwoPageLeft" |
|
1641
|
0 |
0 |
if $layout eq "TwoPageRight" |
|
1647
|
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' ? : |
|
1654
|
0 |
0 |
unless $layout |
|
1706
|
0 |
0 |
unless (@_) |
|
1707
|
0 |
0 |
unless $self->{'catalog'}{'PageMode'} |
|
1709
|
0 |
0 |
if $mode eq "UseNone" |
|
1710
|
0 |
0 |
if $mode eq "UseOutlines" |
|
1711
|
0 |
0 |
if $mode eq "UseThumbs" |
|
1712
|
0 |
0 |
if $mode eq "FullScreen" |
|
1713
|
0 |
0 |
if $mode eq "UseOC" |
|
1714
|
0 |
0 |
if $mode eq "UseAttachments" |
|
1720
|
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' ? : |
|
1727
|
0 |
0 |
unless $mode |
|
1749
|
0 |
0 |
unless (@_) |
|
1773
|
0 |
222 |
if (defined $opts{'-fullscreen'} and not defined $opts{'fullscreen'}) |
|
1774
|
0 |
222 |
if (defined $opts{'-thumbs'} and not defined $opts{'thumbs'}) |
|
1775
|
0 |
222 |
if (defined $opts{'-outlines'} and not defined $opts{'outlines'}) |
|
1777
|
0 |
222 |
if (defined $opts{'-singlepage'} and not defined $opts{'singlepage'}) |
|
1778
|
0 |
222 |
if (defined $opts{'-onecolumn'} and not defined $opts{'onecolumn'}) |
|
1779
|
0 |
222 |
if (defined $opts{'-twocolumnleft'} and not defined $opts{'twocolumnleft'}) |
|
1780
|
0 |
222 |
if (defined $opts{'-twocolumnright'} and not defined $opts{'twocolumnright'}) |
|
1782
|
0 |
222 |
if (defined $opts{'-hidetoolbar'} and not defined $opts{'hidetoolbar'}) |
|
1783
|
0 |
222 |
if (defined $opts{'-hidemenubar'} and not defined $opts{'hidemenubar'}) |
|
1784
|
0 |
222 |
if (defined $opts{'-hidewindowui'} and not defined $opts{'hidewindowui'}) |
|
1785
|
0 |
222 |
if (defined $opts{'-fitwindow'} and not defined $opts{'fitwindow'}) |
|
1786
|
0 |
222 |
if (defined $opts{'-centerwindow'} and not defined $opts{'centerwindow'}) |
|
1787
|
0 |
222 |
if (defined $opts{'-displaytitle'} and not defined $opts{'displaytitle'}) |
|
1788
|
0 |
222 |
if (defined $opts{'-righttoleft'} and not defined $opts{'righttoleft'}) |
|
1789
|
0 |
222 |
if (defined $opts{'-afterfullscreenthumbs'} and not defined $opts{'afterfullscreenthumbs'}) |
|
1790
|
0 |
222 |
if (defined $opts{'-afterfullscreenoutlines'} and not defined $opts{'afterfullscreenoutlines'}) |
|
1791
|
0 |
222 |
if (defined $opts{'-printscalingnone'} and not defined $opts{'printscalingnone'}) |
|
1792
|
1 |
221 |
if (defined $opts{'-simplex'} and not defined $opts{'simplex'}) |
|
1793
|
1 |
221 |
if (defined $opts{'-duplexfliplongedge'} and not defined $opts{'duplexfliplongedge'}) |
|
1794
|
1 |
221 |
if (defined $opts{'-duplexflipshortedge'} and not defined $opts{'duplexflipshortedge'}) |
|
1796
|
2 |
220 |
if (defined $opts{'-firstpage'} and not defined $opts{'firstpage'}) |
|
1797
|
0 |
222 |
if (defined $opts{'-fit'} and not defined $opts{'fit'}) |
|
1798
|
0 |
222 |
if (defined $opts{'-fith'} and not defined $opts{'fith'}) |
|
1799
|
0 |
222 |
if (defined $opts{'-fitb'} and not defined $opts{'fitb'}) |
|
1800
|
0 |
222 |
if (defined $opts{'-fitbh'} and not defined $opts{'fitbh'}) |
|
1801
|
0 |
222 |
if (defined $opts{'-fitv'} and not defined $opts{'fitv'}) |
|
1802
|
0 |
222 |
if (defined $opts{'-fitbv'} and not defined $opts{'fitbv'}) |
|
1803
|
0 |
222 |
if (defined $opts{'-fitr'} and not defined $opts{'fitr'}) |
|
1804
|
0 |
222 |
if (defined $opts{'-xyz'} and not defined $opts{'xyz'}) |
|
1807
|
0 |
222 |
if ($opts{'fullscreen'}) { } |
|
|
0 |
222 |
elsif ($opts{'thumbs'}) { } |
|
|
0 |
222 |
elsif ($opts{'outlines'}) { } |
|
1818
|
0 |
222 |
if ($opts{'singlepage'}) { } |
|
|
0 |
222 |
elsif ($opts{'onecolumn'}) { } |
|
|
0 |
222 |
elsif ($opts{'twocolumnleft'}) { } |
|
|
0 |
222 |
elsif ($opts{'twocolumnright'}) { } |
|
1834
|
0 |
222 |
if ($opts{'hidetoolbar'}) |
|
1837
|
0 |
222 |
if ($opts{'hidemenubar'}) |
|
1840
|
0 |
222 |
if ($opts{'hidewindowui'}) |
|
1843
|
0 |
222 |
if ($opts{'fitwindow'}) |
|
1846
|
0 |
222 |
if ($opts{'centerwindow'}) |
|
1849
|
0 |
222 |
if ($opts{'displaytitle'}) |
|
1852
|
0 |
222 |
if ($opts{'righttoleft'}) |
|
1856
|
0 |
222 |
if ($opts{'afterfullscreenthumbs'}) { } |
|
|
0 |
222 |
elsif ($opts{'afterfullscreenoutlines'}) { } |
|
1864
|
0 |
222 |
if ($opts{'printscalingnone'}) |
|
1868
|
1 |
221 |
if ($opts{'simplex'}) { } |
|
|
1 |
220 |
elsif ($opts{'duplexfliplongedge'}) { } |
|
|
1 |
219 |
elsif ($opts{'duplexflipshortedge'}) { } |
|
1877
|
2 |
220 |
if ($opts{'firstpage'}) |
|
1879
|
0 |
2 |
unless scalar keys %args |
|
1883
|
1 |
1 |
unless ref $page |
|
1886
|
2 |
0 |
if (defined $args{'-fit'} and not defined $args{'fit'}) |
|
1887
|
0 |
2 |
if (defined $args{'-fith'} and not defined $args{'fith'}) |
|
1888
|
0 |
2 |
if (defined $args{'-fitb'} and not defined $args{'fitb'}) |
|
1889
|
0 |
2 |
if (defined $args{'-fitbh'} and not defined $args{'fitbh'}) |
|
1890
|
0 |
2 |
if (defined $args{'-fitv'} and not defined $args{'fitv'}) |
|
1891
|
0 |
2 |
if (defined $args{'-fitbv'} and not defined $args{'fitbv'}) |
|
1892
|
0 |
2 |
if (defined $args{'-fitr'} and not defined $args{'fitr'}) |
|
1893
|
0 |
2 |
if (defined $args{'-xyz'} and not defined $args{'xyz'}) |
|
1895
|
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'}) { } |
|
1908
|
0 |
0 |
unless scalar @{$args{'fitr'};} == 4 |
|
1912
|
0 |
0 |
unless scalar @{$args{'xyz'};} == 3 |
|
1925
|
0 |
0 |
if (defined $object->{'Resources'}) |
|
1935
|
0 |
0 |
if ($page->{'Type'}->val eq 'Pages') { } |
|
1941
|
0 |
0 |
if (defined $page->{'Resources'}) |
|
1989
|
192 |
2 |
if ($index == 0) { } |
|
2004
|
182 |
12 |
if ($pgs_size == 0) { } |
|
|
0 |
12 |
elsif ($pgs_size < -$index) { } |
|
|
0 |
12 |
elsif ($pgs_size < $index) { } |
|
2005
|
0 |
182 |
if $index != 0 |
|
2016
|
192 |
2 |
if ($index == 0) { } |
|
|
0 |
2 |
elsif ($index < 0) { } |
|
2067
|
0 |
7 |
if ($index == 0) { } |
|
|
0 |
7 |
elsif ($index < 0) { } |
|
2074
|
0 |
7 |
unless ref $page |
|
2076
|
6 |
1 |
if (ref $page ne "PDF::Builder::Page") |
|
2083
|
0 |
6 |
if ($rotate = $page->find_prop('Rotate') and not $page->{' opened'}) { } |
|
2086
|
0 |
0 |
if ($rotate != 0 and not $self->default('nounrotate')) { } |
|
2089
|
0 |
0 |
if ($media = $page->find_prop($mediatype)) { } |
|
2093
|
0 |
0 |
if $mediatype ne "MediaBox" |
|
2095
|
0 |
0 |
if ($rotate == 90) { } |
|
|
0 |
0 |
elsif ($rotate == 180) { } |
|
|
0 |
0 |
elsif ($rotate == 270) { } |
|
2096
|
0 |
0 |
if $mediatype eq "MediaBox" |
|
2099
|
0 |
0 |
if $mediatype eq "MediaBox" |
|
2101
|
0 |
0 |
if $mediatype eq "MediaBox" |
|
2113
|
4 |
2 |
if (defined $page->{'Contents'} and not $page->{' opened'}) |
|
2119
|
0 |
4 |
if ($self->default("pageencaps")) |
|
2126
|
0 |
4 |
if ($self->default("pageencaps")) |
|
2131
|
4 |
0 |
if ($self->{'forcecompress'} eq "flate" or $self->{'forcecompress'} =~ /^[1-9]\d*$/) |
|
2198
|
0 |
1 |
unless (ref $s_pdf and $s_pdf->isa("PDF::Builder")) |
|
2202
|
0 |
1 |
if (ref $s_idx eq 'PDF::Builder::Page') { } |
|
2206
|
0 |
1 |
unless defined $s_page |
|
2209
|
0 |
1 |
if (ref $t_idx eq 'PDF::Builder::Page') { } |
|
2212
|
0 |
1 |
if ($self->pages < $t_idx) { } |
|
2230
|
4 |
1 |
unless defined $prop |
|
2241
|
0 |
0 |
if (exists $s_page->{'Annots'} and $s_page->{'Annots'} and $self->{'copyannots'}) |
|
2244
|
0 |
0 |
if (my $a = $s_pdf->{'pdf'}{'Root'}->realise->{'AcroForm'}) |
|
2277
|
0 |
0 |
if $AcroForm |
|
2293
|
0 |
0 |
unless defined $a->{$k} |
|
2299
|
0 |
0 |
if $AcroForm and $t_a->{'Subtype'}->val eq "Widget" |
|
2302
|
0 |
0 |
if $AcroForm |
|
2353
|
0 |
4 |
unless (ref $s_pdf and $s_pdf->isa("PDF::Builder")) |
|
2361
|
1 |
3 |
if (ref $s_idx eq 'PDF::Builder::Page') { } |
|
2365
|
0 |
3 |
unless defined $s_page |
|
2376
|
0 |
4 |
unless defined $s_page->find_prop($k) |
|
2382
|
0 |
4 |
unless defined $xo->{'BBox'} |
|
2386
|
0 |
4 |
unless defined $s_page->{$k} |
|
2387
|
0 |
4 |
if ref($s_page->{$k}) =~ /Objind$/ |
|
2390
|
27 |
5 |
unless defined $s_page->{$k}{$sk} |
|
2391
|
0 |
5 |
if ref($s_page->{$k}{$sk}) =~ /Objind$/ |
|
2393
|
9 |
1 |
if $ssk =~ /^ / |
|
2404
|
0 |
4 |
unless ($s_page->{' opened'}) |
|
2408
|
3 |
1 |
if (defined $s_page->{'Contents'}) |
|
2415
|
3 |
0 |
if ($k->{' nofilt'}) { } |
|
2424
|
2 |
1 |
if $self->{'forcecompress'} eq "flate" or $self->{'forcecompress'} =~ /^[1-9]\d*$/ |
|
2435
|
1 |
517 |
if (ref($source_object) =~ /Objind$/) |
|
2439
|
0 |
518 |
if defined $$object_cache{scalar $source_object} |
|
2445
|
1 |
517 |
if $source_object->is_obj($source_pdf) |
|
2449
|
7 |
511 |
if (ref($source_object) =~ /Array$/) { } |
|
|
2 |
509 |
elsif (ref($source_object) =~ /Dict$/) { } |
|
2452
|
0 |
501 |
if ref($k) =~ /Objind$/ |
|
2456
|
2 |
0 |
unless scalar @keys |
|
2458
|
1 |
11 |
if $k =~ /^ / |
|
2459
|
0 |
11 |
unless defined $source_object->{$k} |
|
2462
|
0 |
2 |
if ($source_object->{' stream'}) |
|
2463
|
0 |
0 |
if ($target_object->{'Filter'}) { } |
|
2633
|
0 |
8 |
if (defined $opts->{'-style'} and not defined $opts->{'style'}) |
|
2634
|
0 |
8 |
if (defined $opts->{'-prefix'} and not defined $opts->{'prefix'}) |
|
2635
|
0 |
8 |
if (defined $opts->{'-start'} and not defined $opts->{'start'}) |
|
2640
|
6 |
2 |
if (defined $opts->{'style'}) { } |
|
2641
|
6 |
0 |
if ($opts->{'style'} ne 'nocounter') { } |
|
2646
|
1 |
2 |
$opts->{'style'} eq 'alpha' ? : |
|
|
1 |
3 |
$opts->{'style'} eq 'Alpha' ? : |
|
|
1 |
4 |
$opts->{'style'} eq 'roman' ? : |
|
|
1 |
5 |
$opts->{'style'} eq 'Roman' ? : |
|
2655
|
1 |
7 |
if (defined $opts->{'prefix'}) |
|
2660
|
1 |
7 |
if (defined $opts->{'start'}) |
|
2685
|
0 |
0 |
if (float($value) <= 0) |
|
2693
|
0 |
0 |
if (defined $self->{'pages'}{'MediaBox'}) |
|
2694
|
0 |
0 |
if ($value != 1) |
|
2709
|
218 |
16 |
if (scalar @corners and $corners[0] =~ /[a-z]/i) |
|
2711
|
0 |
234 |
if (scalar @corners == 3) { } |
|
2715
|
0 |
0 |
if (defined $opts{'-orient'} and not defined $opts{'orient'}) |
|
2718
|
0 |
0 |
if (defined $opts{'orient'}) |
|
2719
|
0 |
0 |
if ($opts{'orient'} =~ /^l/i) |
|
2732
|
0 |
234 |
if ($isName and $UU != 1) |
|
2747
|
8 |
248 |
unless (defined $self->{'pages'}{$boxname}) |
|
2748
|
2 |
6 |
if ($boxname eq 'CropBox') { } |
|
|
6 |
0 |
elsif ($boxname eq 'BleedBox' or $boxname eq 'TrimBox' or $boxname eq 'ArtBox') { } |
|
2753
|
0 |
6 |
if (defined $self->{'pages'}{'CropBox'}) { } |
|
2790
|
222 |
6 |
if (defined $corners[0]) |
|
2818
|
3 |
4 |
if (defined $corners[0]) |
|
2846
|
3 |
4 |
if (defined $corners[0]) |
|
2874
|
3 |
4 |
if (defined $corners[0]) |
|
2902
|
3 |
4 |
if (defined $corners[0]) |
|
2929
|
0 |
52 |
if (defined $opts{'-unicodemap'} and not defined $opts{'unicodemap'}) |
|
2932
|
29 |
23 |
unless ("PDF::Builder::Resource::Font::CoreFont"->is_standard($name)) |
|
2933
|
0 |
29 |
if ($name =~ /^Times$/i) |
|
2942
|
0 |
52 |
if $opts{'unicodemap'} |
|
2959
|
0 |
0 |
if (defined $opts{'-afmfile'} and not defined $opts{'afmfile'}) |
|
2960
|
0 |
0 |
if (defined $opts{'-pfmfile'} and not defined $opts{'pfmfile'}) |
|
2961
|
0 |
0 |
if (defined $opts{'-unicodemap'} and not defined $opts{'unicodemap'}) |
|
2964
|
0 |
0 |
unless defined $opts{$o} |
|
2972
|
0 |
0 |
if $opts{'unicodemap'} |
|
2987
|
0 |
0 |
if (defined $opts{'-unicodemap'} and not defined $opts{'unicodemap'}) |
|
2988
|
0 |
0 |
if (defined $opts{'-noembed'} and not defined $opts{'noembed'}) |
|
2994
|
0 |
0 |
unless exists $opts{'unicodemap'} |
|
2995
|
0 |
0 |
unless exists $opts{'noembed'} |
|
3002
|
0 |
0 |
if $opts{'unicodemap'} |
|
3053
|
0 |
1 |
if (defined $opts{'-unicodemap'} and not defined $opts{'unicodemap'}) |
|
3059
|
0 |
1 |
if $opts{'unicodemap'} |
|
3137
|
0 |
0 |
if (defined $opts{'-encode'} and not defined $opts{'encode'}) |
|
3138
|
0 |
0 |
if (defined $opts{'-kerning'} and not defined $opts{'kerning'}) |
|
3139
|
0 |
0 |
if (defined $opts{'-dokern'} and not defined $opts{'dokern'}) |
|
3140
|
0 |
0 |
if (defined $opts{'-embed'} and not defined $opts{'embed'}) |
|
3141
|
0 |
0 |
if (defined $opts{'-afmfile'} and not defined $opts{'afmfile'}) |
|
3142
|
0 |
0 |
if (defined $opts{'-pfmfile'} and not defined $opts{'pfmfile'}) |
|
3144
|
0 |
0 |
if (exists $opts{'kerning'}) |
|
3151
|
0 |
0 |
if ('PDF::Builder::Resource::Font::CoreFont'->is_standard($name)) { } |
|
|
0 |
0 |
elsif ($name =~ /^Times$/i and not $opts{'format'}) { } |
|
3161
|
0 |
0 |
$name =~ /\.bdf$/i ? : |
|
|
0 |
0 |
$name =~ /\.pf[ab]$/i ? : |
|
|
0 |
0 |
$name =~ /\.[ot]tf$/i ? : |
|
3165
|
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 =~ /(\..*)$/) { } |
|
3169
|
0 |
0 |
if (exists $opts{'afm_file'}) |
|
3172
|
0 |
0 |
if (exists $opts{'pfm_file'}) |
|
3216
|
0 |
0 |
if ref $_[0] |
|
3217
|
0 |
0 |
if $_[0] eq "PDF::Builder" |
|
3238
|
0 |
38 |
if ref $_[0] |
|
3239
|
38 |
0 |
if $_[0] eq "PDF::Builder" |
|
3251
|
0 |
0 |
if -f $font |
|
3255
|
0 |
0 |
if -f "$directory/$font" |
|
3288
|
0 |
0 |
if (defined $opts{'-unicodemap'} and not defined $opts{'unicodemap'}) |
|
3290
|
0 |
0 |
unless (defined $opts{'-entry_point'}) |
|
3296
|
0 |
0 |
unless exists $opts{'unicodemap'} |
|
3302
|
0 |
0 |
if $opts{'unicodemap'} |
|
3490
|
0 |
3 |
if (ref $file eq 'GD::Image') { } |
|
|
3 |
0 |
elsif (ref $file) { } |
|
3499
|
0 |
3 |
unless (ref $file) |
|
3500
|
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 ? : |
|
3508
|
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 =~ /(\..*)$/) { } |
|
3546
|
0 |
3 |
unless $bytes_read and $bytes_read == 8 |
|
3548
|
1 |
2 |
if $test =~ /^GIF\d\d[a-z]/ |
|
3549
|
1 |
1 |
if $test =~ /^\xFF\xD8\xFF/ |
|
3550
|
1 |
0 |
if $test =~ /^\x89PNG\x0D\x0A\x1A\x0A/ |
|
3551
|
0 |
0 |
if $test =~ /^\s*P[1-6]/ |
|
3598
|
4 |
0 |
if (defined $opts{'-nouseGT'} and not defined $opts{'nouseGT'}) |
|
3599
|
1 |
3 |
if (defined $opts{'-silent'} and not defined $opts{'silent'}) |
|
3603
|
0 |
4 |
if ($rc) |
|
3605
|
0 |
0 |
if (defined $opts{'nouseGT'} and $opts{'nouseGT'} == 1) |
|
3609
|
0 |
4 |
if ($rc == 1) { } |
|
3620
|
1 |
2 |
if ($rc == 0 and $MSG_COUNT[0]++ == 0) |
|
3623
|
0 |
1 |
if (not defined $opts{'silent'} or $opts{'silent'} == 0) |
|
3662
|
4 |
0 |
unless (defined $rc) |
|
3663
|
0 |
4 |
if ($rc) |
|
3665
|
0 |
0 |
if ($Graphics::TIFF::VERSION < $GrTFversion) |
|
3716
|
0 |
5 |
if (defined $opts{'-nouseIPL'} and not defined $opts{'nouseIPL'}) |
|
3717
|
0 |
5 |
if (defined $opts{'-silent'} and not defined $opts{'silent'}) |
|
3721
|
0 |
5 |
if ($rc) |
|
3723
|
0 |
0 |
if (defined $opts{'nouseIPL'} and $opts{'nouseIPL'} == 1) |
|
3727
|
0 |
5 |
if ($rc == 1) { } |
|
3738
|
1 |
3 |
if ($rc == 0 and $MSG_COUNT[1]++ == 0) |
|
3741
|
0 |
1 |
if (not defined $opts{'silent'} or $opts{'silent'} == 0) |
|
3779
|
5 |
0 |
unless (defined $rc) |
|
3780
|
0 |
5 |
if ($rc) |
|
3782
|
0 |
0 |
if ($Image::PNG::Libpng::VERSION < $LpngVersion) |
|
3933
|
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') { } |
|
4224
|
0 |
0 |
unless (defined $obj) |
|
4285
|
0 |
18 |
unless length $string |
|
4294
|
0 |
38 |
unless length $_ |
|
4301
|
0 |
171 |
unless length $rawObject |
|
4304
|
23 |
148 |
if ($rawObject =~ /^(.*)stream\s.*\sendstream(.*)$/s) |
|
4309
|
133 |
38 |
if ($rawObject =~ /^(.*?)\s?(\d+) (\d+) obj\s(.*)$/s or $rawObject =~ /^(.*?)\s?(\d+) (\d+) obj(.*)$/s) { } |
|
4318
|
9 |
124 |
if (defined $objList{$objKey} and $update > 0) |
|
4325
|
49 |
84 |
unless (defined $objList{$objKey}) |
|
4340
|
27 |
106 |
if ($rawObject =~ m[/Parent(\s+)(\d+)(\s+)(\d+)(\s+)R]) |
|
4357
|
20 |
113 |
if ($rawObject =~ m(/Kids(\s+)\[(.*)\])) |
|
4365
|
22 |
20 |
if ($str2 =~ /(\s+)(\d+)(\s+)(\d+)(\s+)R/) { } |
|
4389
|
18 |
115 |
if ($rawObject =~ m[/Type(\s+)/Catalog]) |
|
4391
|
0 |
18 |
if ($rawObject =~ m[/Version /(\d+)\.(\d+)]) |
|
4402
|
3 |
130 |
if ($rawObject =~ m[/Type(\s+)/XRef] or $rawObject =~ m[/Type/XRef]) |
|
4404
|
3 |
0 |
if ($rawObject =~ m[/Root(\s+)(\d+)(\s+)(\d+)(\s+)R]) |
|
4410
|
3 |
0 |
if ($rawObject =~ m[/Info(\s+)(\d+)(\s+)(\d+)(\s+)R]) |
|
4421
|
74 |
133 |
if ($rawObject =~ /(\d+)(\s+)(\d+)(\s+)R/) { } |
|
4433
|
63 |
11 |
unless (defined $objList{$_}) |
|
4439
|
19 |
110 |
unless (defined $objList{$_}) |
|
4448
|
18 |
20 |
if ($rawObject =~ /trailer/) |
|
4449
|
18 |
0 |
if ($rawObject =~ m[trailer(.*)/Info(\s+)(\d+)(\s+)(\d+)(\s+)R]s) |
|
4452
|
18 |
0 |
if ($rawObject =~ m[trailer(.*)/Root(\s+)(\d+)(\s+)(\d+)(\s+)R]s) |
|
4462
|
0 |
18 |
if (not defined $Root) { } |
|
4463
|
0 |
0 |
if $level >= $level_error |
|
4465
|
0 |
18 |
unless (defined $objList{$Root}) |
|
4467
|
0 |
0 |
if $level >= $level_error |
|
4473
|
0 |
18 |
if (not defined $Info) { } |
|
4474
|
0 |
0 |
if $level >= $level_note |
|
4476
|
0 |
18 |
unless (defined $objList{$Info}) |
|
4478
|
0 |
0 |
if $level >= $level_note |
|
4495
|
2 |
129 |
if ($objList{$thisObj}[$idx_defined] == 0) |
|
4496
|
0 |
2 |
if $level >= $level_note |
|
4502
|
17 |
114 |
if ($objList{$thisObj}[$idx_kid_cnt] > 0) |
|
4507
|
20 |
0 |
if ($objList{$child}[$idx_par_clmd] == -1) { } |
|
4512
|
0 |
0 |
if $level >= $level_error |
|
4517
|
20 |
0 |
if ($objList{$child}[$idx_defined] == 1) |
|
4519
|
0 |
20 |
if ($objList{$child}[$idx_parent] == -1) { } |
|
|
0 |
20 |
elsif ($objList{$child}[$idx_parent] != $thisObj) { } |
|
4520
|
0 |
0 |
if $level >= $level_error |
|
4524
|
0 |
0 |
if $level >= $level_error |
|
4532
|
8 |
123 |
if ($objList{$thisObj}[$idx_parent] == -1 and $objList{$thisObj}[$idx_refcount] == 0) |
|
4534
|
0 |
8 |
if $level >= $level_note |
|
4538
|
0 |
18 |
if ($level >= $level_dump) |
|
4547
|
0 |
18 |
if ($level >= $level_dumpself) |