view release on metacpan or  search on metacpan

bin/circle-fe-term  view on Meta::CPAN

use constant HAVE_METRICS => eval { require Metrics::Any::Adapter; };

my $IDENTITY;
my $FAMILY;

GetOptions(
   'identity|i=s' => \$IDENTITY,
   'metrics-port=i' => \my $METRICS_PORT,
   'help' => sub { usage(0) },
   '4|ipv4' => sub { $FAMILY = "inet4" },
   '6|ipv6' => sub { $FAMILY = "inet6" },
) or usage(1);

sub usage
{
   my ( $exitcode ) = @_;

   print { $exitcode ? \*STDERR : \*STDOUT } <<'EOF';
circle-fe-term [options...] [URL]

Options: