From b798a75c3304527171c4a8ca5b1ec43bc5b3096a Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Fri, 28 Oct 2016 12:14:01 +0100
Subject: works!

---
 test.pl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 test.pl

(limited to 'test.pl')

diff --git a/test.pl b/test.pl
new file mode 100644
index 0000000..f8fe405
--- /dev/null
+++ b/test.pl
@@ -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');
-- 
cgit v1.2.3