Parse the TDP v1 /goals API result to find cooldown goals "expiration" date

gistfile1.pl

#!env perl

use JSON;
use DateTimeX::Easy;
use Data::Printer;

my $json = JSON::decode_json(<STDIN>);

my $goals = $json->{goals};

die "Bad input!" unless $goals and ref $goals eq 'ARRAY';

foreach my $goal ( @$goals ) {
  next unless $goal->{cooldown} > 1;

  my @actual_days = grep { defined $_->{id} } @{ $goal->{trend} || [] };
  if ( @actual_days ) {
    my $day = DateTimeX::Easy->parse($actual_days[-1]->{date});
    print "$goal->{name} goes pear shaped on " . $day->add( days => $goal->{cooldown} ) . "\n";
  }
}