| line |
true |
false |
branch |
|
55
|
22 |
0 |
unless defined $t1ascii |
|
57
|
22 |
0 |
unless defined $ttftotype42 |
|
125
|
680 |
635 |
if defined $_ |
|
130
|
1 |
44 |
if (@options == 1) { } |
|
170
|
1 |
44 |
if $opt->{'png'} |
|
181
|
2 |
42 |
if ($o->{'debug'}) |
|
207
|
2 |
42 |
defined $opt->{'order'} ? : |
|
224
|
2 |
42 |
if $opt->{'need_fonts'} |
|
226
|
42 |
2 |
if _def($opt->{'newpage'}, 1) |
|
242
|
2 |
43 |
$o->{'pagecount'} ? : |
|
|
2 |
45 |
defined $page ? : |
|
258
|
6 |
98 |
if (my $use_functions = $o->{'use_functions'}) |
|
265
|
6 |
98 |
if ($o->{'reencode'}) |
|
332
|
6 |
72 |
if $font eq 'Symbol' |
|
339
|
7 |
97 |
$o->{'eps'} ? : |
|
340
|
7 |
97 |
if ($o->{'eps'}) |
|
343
|
3 |
101 |
if ($o->{'headings'}) |
|
352
|
2 |
1 |
unless $o->{'eps'} |
|
358
|
10 |
94 |
if $landscape |
|
368
|
10 |
94 |
if ($clipping) |
|
370
|
3 |
7 |
if $clipcmd eq 'stroke' |
|
389
|
65 |
39 |
if ($o->{'errors'}) |
|
426
|
2 |
102 |
if ($o->{'debug'}) |
|
592
|
0 |
104 |
if defined $o->{'debug'} and not $o->{'debug'} |
|
611
|
64 |
24 |
if ($landscapefn or $clipfn or $errorfn or $debugfn) |
|
626
|
4 |
100 |
if not defined $title and defined $filename |
|
629
|
5 |
99 |
if $o->{'Comments'} |
|
630
|
10 |
94 |
$o->{'landscape'} ? : |
|
631
|
65 |
39 |
if $docNeeded |
|
632
|
86 |
18 |
if $docSupplied |
|
633
|
4 |
100 |
if defined $title |
|
634
|
0 |
104 |
if $o->{'version'} |
|
635
|
7 |
97 |
if not $o->{'eps'} and $o->{'pagecount'} > 1 |
|
636
|
5 |
92 |
if not $o->{'eps'} and $o->{'order'} |
|
637
|
0 |
104 |
if $o->{'extensions'} |
|
638
|
0 |
104 |
if $o->{'langlevel'} |
|
641
|
6 |
98 |
if $o->{'Preview'} |
|
643
|
5 |
99 |
if $o->{'Defaults'} |
|
657
|
16 |
88 |
if $setup |
|
669
|
39 |
65 |
unless %$needed |
|
674
|
65 |
25 |
if ($type eq 'font') |
|
679
|
0 |
90 |
unless %{$needed->{$type};} |
|
686
|
12 |
181 |
if length $list[-1] and length($resource) + length($list[-1]) >= $maxLen |
|
706
|
5 |
99 |
if $o->{'encoding'} |
|
708
|
10 |
94 |
if $trailer |
|
720
|
32 |
72 |
if @_ > 1 and not $fh |
|
723
|
2 |
102 |
if (defined $o->{'debug'}) { } |
|
726
|
2 |
0 |
if ($o->{'debug'} >= 2) |
|
746
|
7 |
97 |
if ($o->{'eps'}) { } |
|
751
|
1 |
6 |
if (defined $o->{'filename'}) |
|
752
|
0 |
1 |
$o->{'pagecount'} > 1 ? : |
|
755
|
0 |
1 |
$o->{'Preview'} ? : |
|
|
0 |
1 |
defined $o->{'file_ext'} ? : |
|
762
|
0 |
7 |
if $o->{'pagelandsc'}[$p] |
|
763
|
0 |
7 |
if $o->{'pageclip'}[$p] |
|
773
|
0 |
7 |
wantarray ? : |
|
784
|
0 |
3 |
defined $o->{'file_ext'} ? : |
|
|
3 |
94 |
if defined $psfile |
|
791
|
10 |
94 |
if ($o->{'pagelandsc'}[$p]) { } |
|
798
|
10 |
94 |
$o->{'pageclip'}[$p] ? : |
|
833
|
28 |
0 |
unless ($verbatim) |
|
855
|
24 |
87 |
if ($comment =~ /\./) |
|
869
|
28 |
76 |
if (defined $filename) { } |
|
871
|
24 |
4 |
if ($outfile) |
|
876
|
0 |
4 |
unless open $outfile, '>', $filename |
|
910
|
4 |
72 |
defined $filename && length $filename ? : |
|
938
|
2 |
42 |
if (not $height and $paper =~ /^(\d+(?:\.\d+)?)\s*x\s*(\d+(?:\.\d+)?)$/i) |
|
944
|
44 |
0 |
if ($height) |
|
948
|
0 |
44 |
if ($o->{'landscape'}) { } |
|
970
|
1 |
43 |
if (defined $width and $width + 0) |
|
973
|
0 |
1 |
if ($o->{'landscape'}) { } |
|
990
|
1 |
43 |
if (defined $height and $height + 0) |
|
993
|
0 |
1 |
if ($o->{'landscape'}) { } |
|
1012
|
44 |
0 |
unless defined $o->{'landscape'} |
|
1013
|
4 |
40 |
if ($o->{'landscape'} != $landscape) |
|
1116
|
39 |
5 |
unless $encoding |
|
1118
|
1 |
4 |
if ($encoding eq 'ISOLatin1Encoding') |
|
1123
|
0 |
4 |
unless $o->{'reencode'} = $encoding_name{$encoding} |
|
1127
|
0 |
4 |
unless $o->{'encoding'} = &Encode::find_encoding($encoding) |
|
1145
|
9 |
675 |
if ($encoding and &Encode::is_utf8($_[0])) { } |
|
1147
|
0 |
22 |
unless ($encode_char{$_[0]}) |
|
1148
|
0 |
0 |
if ($_[0] < 256) { } |
|
1169
|
80 |
4 |
if ($encoding and not &Encode::is_utf8($_[0])) { } |
|
1172
|
57 |
23 |
if $_[1] |
|
1183
|
27 |
11 |
if ($_[0] =~ /-/) { } |
|
1215
|
0 |
0 |
unless ($encoding) |
|
1216
|
0 |
0 |
if ($font eq 'Symbol') { } |
|
|
0 |
0 |
elsif ($o->{'reencode'} and $font =~ s/\Q$o->{'font_suffix'}\E$//) { } |
|
1264
|
27 |
17 |
if (not defined $strip) { } |
|
1267
|
0 |
44 |
unless defined($o->{'strip'} = $strip_re{$strip}) |
|
1284
|
26 |
529 |
if (@_ > 1) { } |
|
1286
|
0 |
26 |
unless defined($re = $strip_re{$strip}) |
|
1292
|
0 |
555 |
unless $re |
|
1297
|
0 |
555 |
unless defined $_ |
|
1300
|
61 |
33268 |
if /\G<~[^~]*~>/cg or /\G\( (?: [^\\)]+ | \\. )* \)/cgsx |
|
1303
|
4828 |
28440 |
if (s/$re//m) { } |
|
1308
|
0 |
28440 |
if pos $_ == $pos |
|
1326
|
0 |
0 |
@_ == 2 ? : |
|
1328
|
0 |
0 |
unless defined $o->{'pagelandsc'}[$p] |
|
1329
|
0 |
0 |
if ($o->{'pagelandsc'}[$p] != $landscape) |
|
1347
|
0 |
0 |
@_ == 2 ? : |
|
1401
|
0 |
0 |
unless ($o->{'langlevel'} || 0) >= $level |
|
1419
|
51 |
0 |
if defined $y1 |
|
1445
|
0 |
0 |
@_ == 5 ? : |
|
1446
|
0 |
0 |
if (@_ == 4) |
|
1471
|
0 |
0 |
@_ == 5 ? : |
|
1472
|
0 |
0 |
if (@_ == 4) |
|
1475
|
0 |
0 |
if ($o->{'pagelandsc'}[$p]) { } |
|
1504
|
113 |
0 |
if ($page) |
|
1507
|
113 |
7 |
if $here eq $page |
|
1552
|
4 |
0 |
if defined $entry |
|
1564
|
2 |
0 |
if (defined $entry) |
|
1581
|
4 |
0 |
if defined $entry |
|
1608
|
0 |
4 |
unless defined $suptype or $add_resource_accepts{lc $type} |
|
1610
|
4 |
0 |
unless (defined $suptype) |
|
1616
|
4 |
0 |
if (defined $resource) |
|
1619
|
4 |
0 |
if $suptype |
|
1625
|
2 |
2 |
if ($suptype eq 'font') |
|
1630
|
0 |
4 |
if defined $params and length $params |
|
1651
|
6 |
0 |
if (defined $name and defined $entry) |
|
1652
|
4 |
2 |
if $o->has_procset($name) |
|
1704
|
8 |
0 |
unless index($o->{'DocSupplied'}, $supplied) >= 0 |
|
1707
|
0 |
8 |
unless open my $in, '<:raw', $filename |
|
1712
|
4 |
4 |
if ($content =~ /^\xC5\xD0\xD3\xC6/) |
|
1733
|
0 |
0 |
unless ($type) |
|
1734
|
0 |
0 |
unless $filename =~ m[\.([^\\/.]+)$] |
|
1740
|
0 |
0 |
if ($type eq 'PFA') { } |
|
|
0 |
0 |
elsif ($type eq 'PFB') { } |
|
|
0 |
0 |
elsif ($type eq 'TTF') { } |
|
1741
|
0 |
0 |
unless open $in, '<:raw', $filename |
|
1743
|
0 |
0 |
unless open $in, '-|:raw', $t1ascii, $filename |
|
1746
|
0 |
0 |
unless open $in, '-|:raw', $ttftotype42, $filename |
|
1757
|
0 |
0 |
unless $content =~ m[/FontName\s+/(\S+)\s+def\b] |
|
1773
|
0 |
81 |
unless exists $add_resource_accepts{$type} |
|
1780
|
2 |
87 |
ref $res ? : |
|
1795
|
4 |
0 |
if defined $entry |
|
1808
|
4 |
0 |
if defined $entry |
|
1822
|
0 |
27 |
@_ == 2 ? : |
|
1824
|
0 |
27 |
if ($page) |
|
1826
|
0 |
0 |
if ($ord == $o->{'p'} and $page ne $o->{'page'}[$ord]) { } |
|
1846
|
4 |
0 |
if defined $entry |
|
1859
|
4 |
0 |
if defined $entry |
|
1881
|
480 |
25 |
if ($o->{'strip_type'} ne 'none') { } |
|
|
25 |
0 |
elsif ($text =~ /^([ \t]+)/) { } |
|
1920
|
8 |
0 |
unless defined $create |
|
1922
|
0 |
8 |
if (not defined $filename && length $filename) { } |
|
1927
|
8 |
0 |
unless ('File::Spec'->file_name_is_absolute($filename)) |
|
1928
|
8 |
0 |
if (defined $dir) { } |
|
1931
|
0 |
8 |
unless 'File::Spec'->file_name_is_absolute($dir) |
|
1945
|
0 |
32 |
unless -d $path |
|
1949
|
0 |
8 |
if ($create) |
|
1950
|
0 |
0 |
unless (-e $filename) |
|
1951
|
0 |
0 |
unless open my $file, '>', $filename |
|
1964
|
0 |
16 |
unless defined $dir |
|
1965
|
0 |
0 |
$1 ? : |
|
1980
|
0 |
0 |
if (ref $arg eq 'ARRAY') { } |
|
1997
|
40 |
13 |
if @_ > 1 |
|
2003
|
11 |
13 |
if ref $o and $o->{'auto_hyphen'} and $string =~ /-/ |
|
2009
|
50 |
3 |
unless $nowrap |
|
2019
|
117 |
0 |
if @_ > 1 |
|
2023
|
115 |
2 |
if $string =~ m[^[-+_./*A-Za-z0-9]+\z] |