summaryrefslogtreecommitdiff
path: root/lib/Data/QRCode/Result.pm
diff options
context:
space:
mode:
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__