1 files changed, 9 insertions, 0 deletions
diff --git a/lib/Data/QRCode.pm b/lib/Data/QRCode.pm
index 74896c9..649e1f9 100644
--- a/lib/Data/QRCode.pm
+++ b/lib/Data/QRCode.pm
@@ -34,6 +34,15 @@ has input_data => (
     isa => Str,
 );
 
+around BUILDARGS => sub {
+    my ($orig,$class,@args) = @_;
+
+    return { input_data => $args[0] }
+        if @args == 1 && !ref $args[0];
+
+    return $class->$orig(@args);
+};
+
 has _result => (
     is => 'lazy',
     init_arg => undef,