view release on metacpan or  search on metacpan

bin/pretty-res  view on Meta::CPAN

my $Input;
my @Output;

sub parse_cmdline {
    require Getopt::Long;

    my $res = Getopt::Long::GetOptions(
        'input|i=s'  => \$Opts{input},
        'output|o=s' => \$Opts{output},
        'version|v'  => sub {
            say "pretty-res version ", ($main::VERSION // '?');
            exit 0;
        },
        'help|h'     => sub {
            print <<USAGE;
Usage:
  pretty-res [OPTIONS] < INPUT
  pretty-res --version
  pretty-res --help
Examples:
  pretty-res -o yaml data.json