diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Data/QRCode.pm | 9 |
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, |