Not a HASH reference at /home/ken/perl5/perlbrew/perls/perl-5.36.0/lib/site_perl/5.36.0/PDF/API2.pm line 2359.
        PDF::API2::image_gd(GD::Image=SCALAR(0x800ec1020)) called at /home/ken/perl5/perlbrew/perls/perl-5.36.0/lib/site_perl/5.36.0/PDF/API2.pm line 2240
        PDF::API2::image(PDF::API2=HASH(0x8008589c0), GD::Image=SCALAR(0x800ec1020)) called at ./test.pl line 32

##</code><code>##

        return image_gd($file, %options);

##</code><code>##

        return $self->image_gd($file, %options);

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

use PDF::API2;
use GD::Tiler 'tile';

my $pdf_file = 'tiled_dogs.pdf';
my $png_file = 'tiled_dogs.png';
my @dog_jpegs = qw{husky.jpg labrador.jpg retriever.jpg};

my $tiled_dogs = tile(
    Images => [@dog_jpegs],
    Center          => 1,
    ImagesPerRow    => 3,
);

my $pdf = PDF::API2::->new($pdf_file);
my $page = $pdf->page();

open my $png_fh, '>:raw', $png_file;
$png_fh->print($tiled_dogs);
close $png_fh;
my $canine_triptych = $pdf->image($png_file);
unlink $png_file;

$page->object($canine_triptych, 100, 650, 400);
$pdf->save($pdf_file);