diff options
author | dakkar <dakkar@thenautilus.net> | 2016-11-10 14:51:29 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2016-11-10 14:51:29 +0000 |
commit | 81a380987d4f92fe85c3eab4ec94618163494632 (patch) | |
tree | 33fb5aa04038a21a31352e5f83a0ce9502880ee2 /lib/Data/QRCode/Result.pm | |
parent | strictures in ::Types (diff) | |
download | Data-QRCode-81a380987d4f92fe85c3eab4ec94618163494632.tar.gz Data-QRCode-81a380987d4f92fe85c3eab4ec94618163494632.tar.bz2 Data-QRCode-81a380987d4f92fe85c3eab4ec94618163494632.zip |
docs & critic fixes
Diffstat (limited to 'lib/Data/QRCode/Result.pm')
-rw-r--r-- | lib/Data/QRCode/Result.pm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/lib/Data/QRCode/Result.pm b/lib/Data/QRCode/Result.pm index 10c79d0..9821868 100644 --- a/lib/Data/QRCode/Result.pm +++ b/lib/Data/QRCode/Result.pm @@ -10,6 +10,18 @@ use Data::QRCode::Result::Inline C => ( typemaps => 'typemap', ); +=head1 SYNOPSIS + + use Data::QRCode::Result; + + my $qr = Data::QRCode::Result->new(build_a_qrcode_input()); + + print $qr->data_at(1,1); + +=method C<new> + +=cut + sub new { my ($class, $input) = @_; my $self = QRcode_encodeInput($input); @@ -32,6 +44,10 @@ sub _data_hash { }; } +=method C<data_at> + +=cut + sub data_at { my ($self,$x,$y) = @_; my $width = $self->width; @@ -41,6 +57,15 @@ sub data_at { return _data_hash($self->_data_at($x,$y)); } +=method C<version> + +=method C<width> + +=for Pod::Coverage +QRcode_encodeInput + +=cut + 1; __DATA__ |