view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

sample/EAN13.png
sample/EAN8.png
sample/IATA2of5.png
sample/Industrial2of5.png
sample/ITF.png
sample/Matrix2of5.png
sample/NW7.png
sample/QRcode.png
sample/QRCode/bar2.png
sample/QRCode/bar2.txt
sample/QRCode/chkPng.pl
sample/QRCode/qrc4.png
sample/QRCode/qrc4.txt
sample/QRCode/reschk.png
sample/QRCode/testGD.pl
sample/smp_all.pl
sample/smp_ind.pl
sample/UPCA.png
sample/UPCE.png
t/barcode.t
t/business-isbn-png-barcode.t

sample/QRCode/chkPng.pl  view on Meta::CPAN

use strict;
use GD qw(:DEFAULT :cmp);
my $oOld = GD::Image->newFromPng('reschk.png');
my $oNew = GD::Image->newFromPng('qrc4.png');
printf "CMP              :%8b\n", $oOld->compare($oNew), "\n";
printf "GD_CMP_IMAGE     :%8b\n", GD_CMP_IMAGE;
printf "GD_CMP_NUM_COLORS:%8b\n", GD_CMP_NUM_COLORS;
printf "GD_CMP_COLOR     :%8b\n", GD_CMP_COLOR     ;
printf "GD_CMP_SIZE_X    :%8b\n", GD_CMP_SIZE_X    ;
printf "GD_CMP_SIZE_Y    :%8b\n", GD_CMP_SIZE_Y    ;
printf "GD_CMP_TRANSPAREN:%8b\n", GD_CMP_TRANSPARENT;
printf "GD_CMP_BACKGROUND:%8b\n", GD_CMP_BACKGROUND;
printf "GD_CMP_INTERLACE :%8b\n", GD_CMP_INTERLACE;
my($iOldX, $iOldY) = $oOld->getBounds();