summaryrefslogtreecommitdiff
path: root/lib/Data/QRCode/Result.pm
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2016-11-10 14:51:29 +0000
committerdakkar <dakkar@thenautilus.net>2016-11-10 14:51:29 +0000
commit81a380987d4f92fe85c3eab4ec94618163494632 (patch)
tree33fb5aa04038a21a31352e5f83a0ce9502880ee2 /lib/Data/QRCode/Result.pm
parentstrictures in ::Types (diff)
downloadData-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.pm25
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__