|
Lines 55-62
sub new {
Link Here
|
| 55 |
|
55 |
|
| 56 |
sub End { |
56 |
sub End { |
| 57 |
my $self = shift; |
57 |
my $self = shift; |
| 58 |
# if the pdf stream is utf8, explicitly set it to utf8; this avoids at lease some wide character errors -chris_n |
58 |
|
| 59 |
utf8::encode($PDF::Reuse::stream) if utf8::is_utf8($PDF::Reuse::stream); |
|
|
| 60 |
prEnd(); |
59 |
prEnd(); |
| 61 |
|
60 |
|
| 62 |
# slurp temporary filename and print it out for plack to pick up |
61 |
# slurp temporary filename and print it out for plack to pick up |
|
Lines 112-118
sub Field {
Link Here
|
| 112 |
sub Font { |
111 |
sub Font { |
| 113 |
my $self = shift; |
112 |
my $self = shift; |
| 114 |
my $fontName = shift; |
113 |
my $fontName = shift; |
| 115 |
return prFont($fontName); |
114 |
my $ttf_path = '/usr/share/fonts/truetype/ttf-dejavu/DejaVuSerif.ttf'; |
|
|
115 |
if ( -e $ttf_path ) { |
| 116 |
warn "# using ttf_path $ttf_path"; |
| 117 |
return prTTFont($ttf_path); |
| 118 |
} else { |
| 119 |
return prFont($fontName); |
| 120 |
} |
| 116 |
} |
121 |
} |
| 117 |
|
122 |
|
| 118 |
sub FontSize { |
123 |
sub FontSize { |