#!/usr/bin/perl

use strict;
use warnings;
use PDF::API3::Compat::API2;
use PDF::API3::Compat::API2::Util;

my $outputPDF = 'test.pdf';
{
    my $pdf = PDF::API3::Compat::API2->new( -file => $outputPDF );
    defined $pdf or die "Unable to create PDF file $outputPDF";

    my $page    = $pdf->page();
    my $content = $page->text();

    my ( $x, $y ) = ( 72, 720 );
    foreach my $fontName (
        qw[
        trebuchet trebuchetbold	trebuchetitalic
        trebuchetbolditalic bankgothic
        Courier Courier-Bold Courier-BoldOblique Courier-Oblique
        Courier-New Courier-NewBold 
        georgia georgiabold georgiabolditalic georgiaitalic
        Helvetica-BoldOblique Helvetica-Oblique Helvetica-Bold Helvetica
        Symbol
        Times-BoldItalic Times-Italic Times-Roman Times-Bold
        verdana verdanabold verdanabolditalic verdanaitalic
        webdings
        wingdings
        zapfdingbats
        ]
      )
    {
        my $font = $pdf->corefont($fontName);
        $content->font( $font, 10 );
        $content->translate( $x, $y );
        $content->text(
          'This is the first line I have written using this module' );
        $y -= 12;
        $content->translate( $x, $y );
        $content->text("in quite a while. ($fontName)");
        $y -= 12;
    }
    $pdf->save;
}