#!/usr/bin/perl
use strict;
use PDF::API2;
use PDF::Table;

my $pdftable = new PDF::Table;
my $pdf = new PDF::API2(-file => "pdf_table.pdf");
my $page = $pdf->page();
$pdf->mediabox('A4');
 
my $col_props = [
	{
		justify => 'right', 
		font => $pdf->corefont("Helvetica", -encoding => "utf8"),		
		font_size => 12,
		min_w => 100,       
		max_w => 100,       
	},	
	{
		justify => 'left', 
		min_w => 100,       
		max_w => 100,       
	}
];

my $data = [ 
	['title0', "content 0" ],
	['title1', "first line\nsecond line\nthird line"],
	['title2', "content 2"],
	['title3', "content 3"],
	['title4', "content 4"],
	['title5', "content 5"],
	['title6', "content 6"]
] ;

# build the table layout
my ($end_page, $pages_spanned, $table_bot_y) =  $pdftable->table(
	$pdf,
	$page,
	$data,
	x => 40,
	w => 200,
	start_y => 500,
	next_y  => 700,
	start_h => 300,
	next_h  => 500,
	padding => 5,
	padding_right => 10,
	column_props   => $col_props,	
);	

$pdf->saveas();