view release on metacpan or  search on metacpan

script/gen-qrcode  view on Meta::CPAN

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2026-01-20'; # DATE
our $DIST = 'App-QRCodeUtils'; # DIST
our $VERSION = '0.005'; # VERSION

my $cmdline = Perinci::CmdLine::Any->new(
    url => "/App/QRCodeUtils/gen_qrcode",
    program_name => "gen-qrcode",
    read_config => 0,
    read_env => 0,
);

$cmdline->run;

# ABSTRACT: Generate QR Code and by default show it (or save it to a file)
# PODNAME: gen-qrcode

__END__

=pod

=encoding UTF-8

=head1 NAME

gen-qrcode - Generate QR Code and by default show it (or save it to a file)

=head1 VERSION

This document describes version 0.005 of gen-qrcode (from Perl distribution App-QRCodeUtils), released on 2026-01-20.

=head1 SYNOPSIS

B<gen-qrcode> B<L<--help|/"--help, -h, -?">> (or B<L<-h|/"--help, -h, -?">>, B<L<-?|/"--help, -h, -?">>)

B<gen-qrcode> B<L<--version|/"--version, -v">> (or B<L<-v|/"--version, -v">>)

B<gen-qrcode> [B<L<--format-arg|/"--format-arg=s">>=I<str>] [B<L<--format|/"--format=s">>=I<name>|B<L<--json|/"--json">>] [B<L<--level|/"--level=s">>=I<str>] [B<L<--(no)naked-res|/"--naked-res">>] [B<L<--page-result|/"--page-result">>[=I<program>]|B<...

=head1 OPTIONS

C<*> marks required options.

=head2 Main options

=over

=item B<--filename>=I<s>

If unspecified, will save to a temporary filename and show it with
L<Desktop::Open>.


Can also be specified as the 2nd command-line argument.

=item B<--format-arg>=I<s>

Default value:

 "png"

Valid values:

 ["png","html","txt"]

=item B<--level>=I<s>

Error correction level.

Default value:

 "M"

Valid values:

 ["L","M","Q","H"]

=item B<--text>=I<s>*

(No description)


Can also be specified as the 1st command-line argument.

=back

=head2 Output options

=over

=item B<--format>=I<s>

Choose output format, e.g. json, text.

Default value:

 undef

Output can be displayed in multiple formats, and a suitable default format is
chosen depending on the application and/or whether output destination is
interactive terminal (i.e. whether output is piped). This option specifically
chooses an output format.


=item B<--json>

Set output format to json.

=item B<--naked-res>

When outputing as JSON, strip result envelope.

Default value:

 0

By default, when outputing as JSON, the full enveloped result is returned, e.g.:

 [200,"OK",[1,2,3],{"func.extra"=>4}]

The reason is so you can get the status (1st element), status message (2nd
element) as well as result metadata/extra result (4th element) instead of just
the result (3rd element). However, sometimes you want just the result, e.g. when
you want to pipe the result for more post-processing. In this case you can use