| line |
true |
false |
branch |
|
136
|
0 |
52 |
if ($@) { } |
|
141
|
13056 |
256 |
unless defined $PDF::Builder::Resource::Font::CoreFont::fonts->{$fname}{'uni'}[$n] |
|
156
|
147600 |
440 |
if (not ref $this) { } |
|
|
289 |
151 |
elsif (ref $this eq 'ARRAY') { } |
|
|
151 |
0 |
elsif (ref $this eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $this eq 'CODE') { } |
|
177
|
0 |
52 |
if (-f $name) |
|
183
|
52 |
0 |
if scalar(@opts) % 2 == 0 |
|
185
|
0 |
52 |
if (defined $opts{'-encode'} and not defined $opts{'encode'}) |
|
186
|
0 |
52 |
if (defined $opts{'-metrics'} and not defined $opts{'metrics'}) |
|
187
|
0 |
52 |
if (defined $opts{'-dokern'} and not defined $opts{'dokern'}) |
|
188
|
0 |
52 |
if (defined $opts{'-pdfname'} and not defined $opts{'pdfname'}) |
|
191
|
0 |
52 |
if $PDF::Builder::Resource::Font::CoreFont::alias->{$lookname} |
|
193
|
0 |
52 |
if (defined $PDF::Builder::Resource::Font::CoreFont::subs->{$lookname}) { } |
|
196
|
0 |
0 |
if $k =~ /^\-/ |
|
200
|
0 |
52 |
if (defined $opts{'metrics'}) { } |
|
207
|
0 |
52 |
unless $data->{'fontname'} |
|
222
|
0 |
52 |
if ref $class |
|
225
|
0 |
52 |
unless $self->is_obj($pdf) |
|
227
|
0 |
52 |
if $opts{'dokern'} |
|
231
|
0 |
52 |
if ($opts{'pdfname'}) |
|
235
|
15 |
37 |
unless ($self->data->{'iscore'}) |
|
239
|
0 |
52 |
if ($opts{'encode'} =~ /^utf/i) |
|
246
|
0 |
23 |
if ($is_standard and not $self->issymbol and not $opts{'encode'}) |
|
268
|
0 |
52 |
if $name eq "Courier" |
|
269
|
0 |
52 |
if $name eq "Courier-Bold" |
|
270
|
0 |
52 |
if $name eq "Courier-BoldOblique" |
|
271
|
0 |
52 |
if $name eq "Courier-Oblique" |
|
272
|
20 |
32 |
if $name eq "Helvetica" |
|
273
|
0 |
32 |
if $name eq "Helvetica-Bold" |
|
274
|
0 |
32 |
if $name eq "Helvetica-BoldOblique" |
|
275
|
0 |
32 |
if $name eq "Helvetica-Oblique" |
|
276
|
0 |
32 |
if $name eq "Symbol" |
|
277
|
1 |
31 |
if $name eq "Times-Bold" |
|
278
|
0 |
31 |
if $name eq "Times-BoldItalic" |
|
279
|
0 |
31 |
if $name eq "Times-Italic" |
|
280
|
1 |
30 |
if $name eq "Times-Roman" |
|
281
|
1 |
29 |
if $name eq "ZapfDingbats" |