view release on metacpan or  search on metacpan

bin/freeapi  view on Meta::CPAN

use constant {
  EXIT_SUCCESS => 0,
  EXIT_ERROR   => 1,
};

my $subcommand = shift @ARGV;

#>>>
dispatch {
  xdefault shift, q{random};
}
$subcommand,
  apis   => sub { exit do_apis( \@ARGV )   },
  random => sub { exit do_random( \@ARGV ) },
  help   => \&do_help,
  ;
#<<<

sub do_apis {
    my ($ARGV) = @_;