Select Code to Download

Select or download this

    column_props => [ { justify => 'center' } ],

Select or download this

    if($col_props->[$j]->{justify} eq 'right')
    {
            $space = $calc_column_widths->[$j] -($txt->advancewidth($r
+ecord->[$j]) + $pad_right);
    }

Select or download this

    if($col_props->[$j]->{justify} eq 'right')
    {
...
    {
            $space = ($calc_column_widths->[$j] -$txt->advancewidth($r
+ecord->[$j])) / 2;
    }

Select or download this

sub newpage {
    my $page = $pdf->page;
...

    return $page;
}

Select or download this
```
    header_props => { repeat => 1 },
```

Select or download this

    $page->gfx->textlabel(   # PDF::API2 method
        760, 15,                           # x, y
...
        -color => '#808080',
        -align => 'right',
    );

Select or download this

#!/usr/bin/perl

...
    my ($mon, $mday, $year) = (localtime)[4,3,5];
    return sprintf '%02d-%02d-%04d', $mon+1, $mday, $year+1900;
}