#!/usr/bin/perl
#
#  Test PDF::API3 for use with open source license files.

use strict;
use warnings;

my $outputPDF = 'test.pdf';

use PDF::API3::Compat::API2;

{
    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 );
    for my $fontName (
        qw[
        courier courierbold courierboldoblique courieroblique
        Courier CourierBold CourierBoldOblique CourierOblique
        courier courier-bold courier-boldoblique courier-oblique
        Courier Courier-Bold Courier-BoldOblique Courier-Oblique
        ]
      )
    {
        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;
}