update for newer Data::QRCode

1 files changed, 2 insertions, 1 deletions

diff --git a/test.pl b/test.pl
index f8fe405..45619f0 100644
--- a/test.pl
+++ b/test.pl
@@ -7,7 +7,8 @@ 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',
+    input_data => $string,
+    error_correction_level => 'H',
 );
 
 my $src_img = Imager->new(