view release on metacpan or  search on metacpan

bin/freeapi  view on Meta::CPAN

#!/usr/bin/env perl

use v5.10;
use strict;

use Dispatch::Fu;
use Acme::Free::Public::APIs qw//;
use Util::H2O::More          qw/d2o Getopt2h2o o2d/;
use open qw(:std :utf8);     # Ensures input/output are treated as UTF-8
use Encode;

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

my $subcommand = shift @ARGV;

#>>>