diff options
Diffstat (limited to 'lib/Data/QRCode/Input.pm')
-rw-r--r-- | lib/Data/QRCode/Input.pm | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/lib/Data/QRCode/Input.pm b/lib/Data/QRCode/Input.pm index 69fd283..937474c 100644 --- a/lib/Data/QRCode/Input.pm +++ b/lib/Data/QRCode/Input.pm @@ -10,6 +10,20 @@ use Data::QRCode::Input::Inline C => ( typemaps => 'typemap', ); +=head1 SYNOPSIS + + use Data::QRCode::Input; + + my $input = Data::QRCode::Input->new(); + + $input->version(3); + $input->error_correction_level(Data::QRCode::Input::ECLEVEL_M); + $input->append(Data::QRCode::Input::MODE_8, 'some data'), + +=method C<new> + +=cut + sub new { my ($class) = @_; @@ -18,6 +32,10 @@ sub new { return $self; } +=attr C<version> + +=cut + sub version { my $self = shift; if (@_) { @@ -28,6 +46,10 @@ sub version { } } +=attr C<error_correction_level> + +=cut + sub error_correction_level { my $self = shift; if (@_) { @@ -38,6 +60,39 @@ sub error_correction_level { } } +=head2 CONSTANTS + +=head3 Error Correction Level + +=for :list += C<ECLEVEL_L> += C<ECLEVEL_M> += C<ECLEVEL_Q> += C<ECLEVEL_H> + +=head3 Data Mode + +=for :list += C<MODE_NUM> += C<MODE_AN> += C<MODE_8> += C<MODE_KANJI> += C<MODE_STRUCTURE> += C<MODE_ECI> += C<MODE_FNC1FIRST> += C<MODE_FNC1SECOND> + +=method C<append> + +=for Pod::Coverage +QRinput_getVersion +QRinput_setVersion +QRinput_getErrorCorrectionLevel +QRinput_setErrorCorrectionLevel +QRinput_new + +=cut + 1; __DATA__ |