| line |
true |
false |
branch |
|
23
|
0 |
1 |
if $Font::TFM::DEBUG |
|
45
|
2 |
4 |
if (@_ > 2 or @_ == 2 and not $_[1] =~ /^(\d*\.)?\d+$/) { } |
|
46
|
0 |
2 |
if (@_ % 2) |
|
61
|
1 |
5 |
if ($@) |
|
67
|
0 |
5 |
if (read($file_handle, $buffer, 24) != 24) |
|
80
|
0 |
5 |
if (read($file_handle, $buffer, $$self{'length'}) != $$self{'length'}) |
|
118
|
2 |
3 |
if (defined $opts{'at'}) { } |
|
|
0 |
3 |
elsif (defined $opts{'scale'}) { } |
|
124
|
0 |
5 |
defined $opts{'multiply'} ? : |
|
127
|
0 |
5 |
if ($$self{'sevenbitsafe'}) |
|
132
|
0 |
5 |
if ($face < 18) |
|
134
|
0 |
0 |
if ($face - 12 >= 0) { } |
|
|
0 |
0 |
elsif ($face - 6 >= 0) { } |
|
136
|
0 |
0 |
if ($face - 4 >= 0) { } |
|
|
0 |
0 |
elsif ($face - 2 >= 0) { } |
|
138
|
0 |
0 |
if ($face > 0) |
|
155
|
4 |
1 |
if (@ligkern) |
|
158
|
0 |
4 |
if ($skip == 255) |
|
163
|
0 |
4 |
if ($skip == 255) |
|
173
|
0 |
640 |
if $wid == 0 |
|
181
|
140 |
500 |
if ($tag == 1) { } |
|
|
74 |
426 |
elsif ($tag == 2) { } |
|
|
28 |
398 |
elsif ($tag == 3) { } |
|
189
|
17 |
11 |
if $top |
|
190
|
2 |
26 |
if $mid |
|
191
|
17 |
11 |
if $bot |
|
204
|
1 |
5 |
if (defined $opts{'file'}) { } |
|
|
5 |
0 |
elsif (defined $opts{'name'}) { } |
|
207
|
1 |
4 |
unless $filename = find_tfm_file(%opts) |
|
214
|
0 |
5 |
if DEBUG |
|
215
|
0 |
5 |
unless open TFMFILE, $filename |
|
235
|
140 |
468 |
if ($firstinstr) |
|
236
|
0 |
140 |
if ($skipbyte > 128) |
|
242
|
569 |
39 |
if ($opbyte >= 128 and not exists $$self{'kern'}{$char . $nextchar}) |
|
248
|
33 |
575 |
if ($opbyte < 128 and not exists $$self{'lig'}{$char . $nextchar}) |
|
252
|
0 |
33 |
if $b |
|
254
|
0 |
33 |
if $c |
|
258
|
140 |
468 |
if $skipbyte >= 128 |
|
270
|
5 |
0 |
unless $fontname =~ /\.tfm$/i |
|
271
|
0 |
5 |
if DEBUG |
|
273
|
0 |
5 |
defined $opts{'path'} ? : |
|
275
|
0 |
5 |
if DEBUG |
|
278
|
4 |
1 |
if defined $file |
|
285
|
22 |
0 |
unless $directory eq '' |
|
288
|
0 |
22 |
if DEBUG |
|
289
|
4 |
18 |
if (-f $tfmfile) |
|
293
|
0 |
18 |
if (defined $opts{'usels'}) |
|
295
|
0 |
0 |
if $opts{'usels'} eq '0' or $opts{'usels'} eq 'no' |
|
297
|
0 |
18 |
if (-f $lsfile and $usels) { } |
|
299
|
0 |
0 |
if defined $file |
|
304
|
18 |
17 |
unless -d $subdir |
|
307
|
0 |
17 |
if defined $file |
|
316
|
0 |
0 |
if DEBUG |
|
317
|
0 |
0 |
if DEBUG |
|
318
|
0 |
0 |
unless (open LSFILE, $lsfile) |
|
324
|
0 |
0 |
if (/:$/) { } |
|
|
0 |
0 |
elsif ($_ eq $fontname) { } |
|
327
|
0 |
0 |
if DEBUG > 10 |
|
331
|
0 |
0 |
if (-f $file) |
|
333
|
0 |
0 |
if DEBUG |
|
338
|
0 |
0 |
if DEBUG |
|
344
|
26 |
421 |
if ($val & 2147483648) |
|
351
|
0 |
2 |
if defined $second |
|
352
|
2 |
0 |
if (defined $$self{'kern'}{$double}) |
|
359
|
0 |
0 |
if defined $second |
|
360
|
0 |
0 |
if (defined $$self{'lig'}{$double}) |
|
383
|
0 |
0 |
if $newval > $height |
|
385
|
0 |
0 |
if $newval > $depth |
|
387
|
0 |
0 |
unless @expanded |
|
401
|
0 |
0 |
if (defined $found) { } |
|
413
|
0 |
0 |
if ($self->kern($1 . $2)) |
|
457
|
0 |
13 |
if DEBUG |
|
458
|
0 |
13 |
if defined $WORD_NAMES{$function} |
|
460
|
2 |
11 |
if defined $PARAM_NAMES{$function} |
|
463
|
3 |
8 |
if grep {$_ eq $function;} @CHAR_NAMES |
|
465
|
2 |
6 |
if grep {$_ eq $function;} @GENERAL_NAMES |
|
466
|
2 |
4 |
if ($$self{'codingscheme'} eq 'TeX math symbols' and defined $MATH_SY_NAMES{$function}) |
|
470
|
2 |
2 |
if ($$self{'codingscheme'} eq 'TeX math extension' and defined $MATH_EX_NAMES{$function}) |