The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
12345678910111213 # Test "get_internals"use warnings;use strict;use Test::More;use FindBin '$Bin';use Image::PNG::Libpng ':all';my $png = read_png_file ("$Bin/gecko-1200-gray8.png");my ($x, $y) = get_internals ($png);ok ($x);ok ($y);done_testing ();exit;
# Test "get_internals"
use
warnings;
strict;
Test::More;
FindBin
'$Bin'
;
Image::PNG::Libpng
':all'
my
$png
= read_png_file (
"$Bin/gecko-1200-gray8.png"
);
(
$x
,
$y
) = get_internals (
ok (
done_testing ();
exit