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;

#>>>

lib/Acme/Free/Public/APIs.pm  view on Meta::CPAN

sub random {
    my $self = shift;
    my $URL  = sprintf "%s/random", BASEURL;
    my $resp = HTTPTiny2h2o $self->ua->get($URL);
    return $resp->content;
}

1;

__END__
=encoding UTF-8

=head1 NAME

Acme::Free::Public::APIs - Perl API client for FreePublicAPI.com's API for
for listing APIs.

This module provides the client, "freeapis", that is available via C<PATH>
after install.

=head1 SYNOPSIS