my $pdf = PDF::API2->new();
#$pdf->mediabox(612,792);
-my $fnt = $pdf->corefont('Helvetica-Bold');
-my $page = $pdf->page; # returns the last page
+my $fnt = $pdf->corefont('Helvetica-Bold');
+my $page = $pdf->page; # returns the last page
my $txt = $page->text;
-$txt->{' font'}=$fnt;
+$txt->{' font'} = $fnt;
$text_to_place = "moo moo";
-($width_of_last_line, $ypos_of_last_line, $left_over_text) =
+( $width_of_last_line, $ypos_of_last_line, $left_over_text ) =
$pdftable->text_block(
$txt,
$text_to_place,
-y => 300,
-w => 50,
-h => 40,
-
+
# -lead => 13,
# -font_size => 12,
# -parspace => 0,
# -align => "left",
# -hang => 1,
-);
+ );
$pdf->saveas("$htdocs_path/barcodes/foo.pdf");