diff options
author | dakkar <dakkar@thenautilus.net> | 2016-11-10 14:29:09 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2016-11-10 14:29:09 +0000 |
commit | 1950b0aa7292f16dad931c6dbf6c13606709bcf8 (patch) | |
tree | 95f203c3955df5321f03b854b9cd6f0f8455414b /example/make-image.pl | |
parent | move QRcode* to ::Result, wrap in Moo (diff) | |
download | Data-QRCode-1950b0aa7292f16dad931c6dbf6c13606709bcf8.tar.gz Data-QRCode-1950b0aa7292f16dad931c6dbf6c13606709bcf8.tar.bz2 Data-QRCode-1950b0aa7292f16dad931c6dbf6c13606709bcf8.zip |
update example to new API
Diffstat (limited to 'example/make-image.pl')
-rw-r--r-- | example/make-image.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/example/make-image.pl b/example/make-image.pl index 659d6ef..9faff00 100644 --- a/example/make-image.pl +++ b/example/make-image.pl @@ -91,7 +91,8 @@ sub overlay_data_to_image { 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', + input_data => $string, + error_correction_level => 'H', ); my $src_img = Imager->new( |