Yet Another CPAN Grep

Acme-Free-API-Ye ( O/OO/OODLER/Acme-Free-API-Ye-1.0.2.tar.gz, OODLER, 2025; MetaCPAN )

Acme-Free-API-Ye/lib/Acme/Free/API/Ye.pm ( view source; MetaCPAN )

e::API::Ye;

use strict;
use warnings;

our $VERSION = '1.0.2';

use HTTP::Tiny;
use JSON            qw/decode_json/;
use Util::H2O::More qw/baptise d2o/;

use constant {
    BASEURL => "https://api.k

sub get {
    my $self = shift;
    my $resp = d2o $self->ua->get(BASEURL);
    return d2o decode_json $resp->content;
}

sub quote {
    my $self = shift;
    return $self->get->quote;
}

1;

__END__