#!/usr/local/bin/perl

use PeGS::PDF;

{
my $W    = 4 * 72;
my $H    = 2.25  * 72;

my $pdf = PeGS::PDF->new(
	{
	file => "/Users/brian/Desktop/arrayref_of_hashes.pdf",
	x    => $W,
	'y'  => $H,
	}
	);
die "Could not create object!" unless ref $pdf;


my $array = [
	'...',
	{
	'first' => 'joe',
	'last'  => 'bloe',
	}
	];
	

$pdf->make_reference( '$student', $array, 10, 130 );

$pdf->close;
}

{
my $W    = 4 * 72;
my $H    = 2.25  * 72;

my $pdf = PeGS::PDF->new(
	{
	file => "/Users/brian/Desktop/array_of_hashes.pdf",
	x    => $W,
	'y'  => $H,
	}
	);
die "Could not create object!" unless ref $pdf;


my $array = [
	'...',
	{
	'first' => 'joe',
	'last'  => 'bloe',
	}
	];
	

$pdf->make_array( '@student', $array, 10, 130 );

$pdf->close;
}
