Codebase list libpdf-api2-perl / 64c3e09
Simplify and remove repeated code Steve Simms 4 years ago
3 changed file(s) with 6 addition(s) and 16 deletion(s). Raw diff Collapse all Expand all
+1
-1
lib/PDF/API2/Resource/BaseFont.pm less more
687687 }
688688 elsif (defined $size) {
689689 return "[ $indent ($text) ] TJ" if $indent;
690 return "[ ($text) ] TJ";
690 return "($text) Tj";
691691 }
692692 else {
693693 return "($text)";
+3
-13
lib/PDF/API2/Resource/UniFont.pm less more
192192 if (defined $last_font_number and $font_number != $last_font_number) {
193193 my $font = $self->fontlist->[$last_font_number];
194194 $value .= '/' . $font->name() . ' ' . $size . ' Tf ';
195 if (defined($indent) and $indent != 0) {
196 $value .= '[' . $indent . ' ' . $font->text(pack('U*', @codes)) . '] TJ ';
197 $indent = undef;
198 }
199 else {
200 $value .= $font->text(pack('U*', @codes)) . ' Tj ';
201 }
195 $value .= $font->text(pack('U*', @codes), $size, $indent) . ' ';
196 $indent = undef;
202197 @codes = ();
203198 }
204199
209204 if (scalar @codes > 0) {
210205 my $font = $self->fontlist->[$last_font_number];
211206 $value .= '/' . $font->name() . ' ' . $size . ' Tf ';
212 if (defined($indent) and $indent != 0) {
213 $value .= '[' . $indent . ' ' . $font->text(pack('U*', @codes)) . '] TJ';
214 }
215 else {
216 $value .= $font->text(pack('U*', @codes)) . ' Tj';
217 }
207 $value .= $font->text(pack('U*', @codes), $size, $indent);
218208 }
219209
220210 return $value;
+2
-2
t/rt126274.t less more
1717 $text->transform(-translate => [100, 100]);
1818 $text->text_center("test");
1919 my $value = $text->{' stream'};
20 like($value, qr/\[\d+ \(test\)\] TJ/,
20 like($value, qr/\[ \d+ \(test\) \] TJ/,
2121 q{Centered text is offset when it doesn't contain any special characters});
2222
2323 $text->{' stream'} = $reset;
2424 $text->transform(-translate => [100, 100]);
2525 $text->text_center("test\x{151}");
2626 $value = $text->{' stream'};
27 like($value, qr/\[\d+ \(test\)\] TJ \/\S+ \d+ Tf \(Q\) Tj/,
27 like($value, qr/\[ \d+ \(test\) \] TJ \/\S+ \d+ Tf \(Q\) Tj/,
2828 q{Centered text is offset when it contains special characters});
2929
3030 done_testing();