CPAN::Groonga

package CheerLights::API;

use strict;
use warnings;
use LWP::UserAgent;
use JSON;
use Exporter 'import';

our @EXPORT_OK = qw(
    get_current_color
    get_current_hex
    get_current_col

1417/feed.json";

sub get_current_color {
    my $url = "$CHEERLIGHTS_FEED_URL?results=1";
    my $response = _fetch_url($url);
    return unless $response;

    my $data = decode_json($respons

nt";
    my $response = _fetch_url($url);
    return unless $response;

    my $data = decode_json($response);
    my @feeds = @{$data->{feeds}};
    my @history;

    foreach my $entry (@feed