|  line  | 
 true  | 
 false  | 
 branch  | 
 
| 
36
 | 
 0  | 
 53  | 
 if ref $class  | 
 
| 
39
 | 
 0  | 
 53  | 
 unless $self->is_obj($pdf)  | 
 
| 
81
 | 
 16  | 
 0  | 
 unless $self->data->{'iscore'}  | 
 
| 
82
 | 
 1  | 
 15  | 
 if (defined $self->data->{'panose'})  | 
 
| 
87
 | 
 1  | 
 15  | 
 if defined $self->data->{'fontfamily'}  | 
 
| 
89
 | 
 1  | 
 15  | 
 if defined $self->data->{'fontweight'}  | 
 
| 
91
 | 
 1  | 
 15  | 
 if defined $self->data->{'fontstretch'}  | 
 
| 
99
 | 
 0  | 
 1  | 
 if defined $self->{'ToUnicode'}  | 
 
| 
109
 | 
 0  | 
 1  | 
 if ($self->can('uniByCId') and $self->can('glyphNum')) { }  | 
 
| 
113
 | 
 0  | 
 0  | 
 $self->glyphNum - $j > 100 ? :  | 
 
| 
114
 | 
 0  | 
 0  | 
 if ($j == 0) { }  | 
 
| 
 | 
 0  | 
 0  | 
 elsif ($j % 100 == 0) { }  | 
 
| 
236
 | 
 0  | 
 31  | 
 if ($bbox[0] > $bbox[2])  | 
 
| 
494
 | 
 0  | 
 256  | 
 unless defined $uni  | 
 
| 
595
 | 
 795  | 
 53  | 
 if (ref $self->data->{'wx'} eq 'HASH') { }  | 
 
| 
596
 | 
 795  | 
 0  | 
 if defined $glyph  | 
 
| 
599
 | 
 53  | 
 0  | 
 if defined $cid  | 
 
| 
620
 | 
 0  | 
 0  | 
 if defined $uni  | 
 
| 
621
 | 
 0  | 
 0  | 
 if defined $gid  | 
 
| 
641
 | 
 12086  | 
 0  | 
 if defined $char  | 
 
| 
643
 | 
 12086  | 
 0  | 
 if defined $glyph  | 
 
| 
680
 | 
 0  | 
 0  | 
 if defined $char  | 
 
| 
682
 | 
 0  | 
 0  | 
 if defined $glyph  | 
 
| 
700
 | 
 6  | 
 186  | 
 if utf8::is_utf8($text)  | 
 
| 
709
 | 
 0  | 
 2391  | 
 if ($kern)  | 
 
| 
728
 | 
 0  | 
 0  | 
 unless utf8::is_utf8($text)  | 
 
| 
776
 | 
 0  | 
 31  | 
 unless (defined $string)  | 
 
| 
777
 | 
 3  | 
 28  | 
 if utf8::is_utf8($string)  | 
 
| 
796
 | 
 0  | 
 0  | 
 unless $self->{'-dokern'} and ref $self->data->{'kern'}  | 
 
| 
797
 | 
 0  | 
 0  | 
 if utf8::is_utf8($string)  | 
 
| 
805
 | 
 0  | 
 0  | 
 if (defined $self->data->{'kern'}{$last_glyph . ':' . $glyph})  | 
 
| 
806
 | 
 0  | 
 0  | 
 if $tBefore  | 
 
| 
815
 | 
 0  | 
 0  | 
 unless $tBefore  | 
 
| 
819
 | 
 0  | 
 0  | 
 if $tBefore  | 
 
| 
827
 | 
 0  | 
 31  | 
 unless (defined $string)  | 
 
| 
830
 | 
 0  | 
 31  | 
 if (defined $size and $self->{'-dokern'}) { }  | 
 
| 
 | 
 31  | 
 0  | 
 elsif (defined $size) { }  | 
 
| 
832
 | 
 0  | 
 0  | 
 if $indent  | 
 
| 
835
 | 
 12  | 
 19  | 
 if $indent  |