diff options
author | dakkar <dakkar@thenautilus.net> | 2016-10-28 12:14:01 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2016-10-28 12:14:01 +0100 |
commit | b798a75c3304527171c4a8ca5b1ec43bc5b3096a (patch) | |
tree | 070a3da804ad2e6f548076093423a9870e27a752 /test.pl | |
parent | add Pod::Elemental::Transformer::List as authordep (diff) | |
download | Imager-QRCode-Fancy-b798a75c3304527171c4a8ca5b1ec43bc5b3096a.tar.gz Imager-QRCode-Fancy-b798a75c3304527171c4a8ca5b1ec43bc5b3096a.tar.bz2 Imager-QRCode-Fancy-b798a75c3304527171c4a8ca5b1ec43bc5b3096a.zip |
works!
Diffstat (limited to 'test.pl')
-rw-r--r-- | test.pl | 21 |
1 files changed, 21 insertions, 0 deletions
@@ -0,0 +1,21 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Data::QRCode; +use Imager::QRCode::Fancy; +use Imager; + +my $string = 'simple test string, but a bit long just in case we get a too-small QR code'; +my $data = Data::QRCode->new( + $string,'H', +); + +my $src_img = Imager->new( + file=>'/tmp/faccione.png', +)->scale(scalefactor=>2,qtype=>'mixing'); + +my $img = Imager::QRCode::Fancy::make({ + qr_code => $data, + image => $src_img, +}); +$img->write(file=>'/tmp/qr2.png'); |