Perl PDF::API2 and unicode

Question

I am trying to write a unicode string to a PDF::API2 object, but I does not work, I get unicode characters messed up

our $pageWidth = 1.25*595;
our $pageHeight = 1.25*842;

my $titleSize = 16;

my $pdf = PDF::API2->new();
$pdf->mediabox((0, 0, $pageWidth, $pageHeight));

my $font = $pdf->corefont('Times', -encode => 'utf-8');

my $page = $pdf->page();
my $text = $page->gfx();

$text->font($font, $titleSize);

my $title = '(Nėra pavadinimo šiam puslapiui)';
my $titleWidth = $text->advancewidth($title);

$text->translate(($pageWidth - $titleWidth) / 2, $pageHeight - $titleSize * 2);
$text->text($title);
my $pdfString = $pdf->stringify();

I get (N ra pavadinimo iam puslapiui) . What I am doing wrong

Answer 1

通过使用以下来源解决了这个问题