Perl:PDF::Table找不到CoreFonts

Perl:PDF::Table找不到CoreFonts,perl,pdf-generation,Perl,Pdf Generation,我有一个小程序,从一些表格数据生成pdf。它可以工作,但输出并不漂亮,所以我尝试使用PDF::Table 我将所有数据加载到字符串的2D表格中,然后调用表格: # Create a new PDF

我有一个小程序,从一些表格数据生成pdf。它可以工作,但输出并不漂亮,所以我尝试使用PDF::Table

我将所有数据加载到字符串的2D表格中,然后调用表格:

    # Create a new PDF                                                                                                                                                           
    my $pdftable = new PDF::Table;
    my $pdf = PDF::API2::Simple->new( file => $io );

    $pdf->add_font('VerdanaBold');
    $pdf->add_font('Verdana');

    # Add a page                                                                                                                                                                 
    $pdf->add_page();

    my @table_data;

    # < snipped code to build table_data>

    $pdftable->table(
        # required params                                                                                                                                                        
        $pdf,
        $pdf->current_page,
        \@table_data,
        -x  =>  $pdf->margin_left,                                                                                                                     
        -start_y => 500,
        -next_y => 700,
        -start_h => 300,
        -next_h => 500,
        # some optional params                                                                                                                                                   
        -w => 570,
        -padding => 5,
        -padding_right => 10,
        -background_color_odd => "gray",
        -background_color_even => "lightblue", #cell background color for even rows                                                                                              
        );
此代码是从CPAN Doc for PDF::表复制的

我得到一个错误:

在/usr/local/share/perl5/PDF/Table.pm第256行找不到对象方法\corefont\via package\PDF::API2::Simple\


有什么提示吗?

即使我没有找到根本原因,我还是想出了解决这个问题的办法

解决方法是在调用表格之前定义字体:

my$font=$pdf->add_font'Verdana'

然后将$font作为参数传递到表中,以便表不会查找字体

    $pdftable->table(
        # required params                                                                                                                                                    
        $pdf,
        $pdf->current_page,
        \@table_data,
       -font => $font,
       ....

我花了一些时间查找PDF::API2的代码,但没有找到corefont的定义,即使它引用了所有地方???

什么发行版?perl的哪个版本?PDF-Table-0.9.6_h3,SSIMMS/PDF-API2-2.020,这是perl,v5.10.1