#!/usr/bin/perl

use strict;
use warnings;

use PDF::API2;
use PDF::Table;

 my $pdftable = new PDF::Table;
 my $pdf = new PDF::API2(-file => "table_test.pdf");
 my $page = $pdf->page;

#my $image = $pdf->image_jpeg( "images/logo.jpeg" );
#$pdf->page( $image->width, $image->height );
#$pdf->image( $image, 0, 0 );

 # some data to layout
 my $some_data =[
    ["image here","1 Lorem ipsum dolor",
    "Donec odio neque, faucibus vel",
    "consequat quis, tincidunt vel, felis."],
    ["Nulla euismod sem eget neque.",
    "Donec odio neque",
    "Sed eu velit."],
 ];

 my $left_edge_of_table = 50;
 # build the table layout
 $pdftable->table(
     # required params
     $pdf,
     $page,
     $some_data,
     x => $left_edge_of_table,
     w => 495,
     start_y => 750,
     next_y  => 700,
     start_h => 300,
     next_h  => 500,
     # some optional params
     padding => 5,
     padding_right => 10,
     background_color_odd  => "gray",
     background_color_even => "lightblue", #cell background color for even rows
  );

 # do other stuff with $pdf
 $pdf->saveas();