o DarkSky
package DarkSky::API;
use strict;
use warnings;
use JSON::XS;
use HTTP::Tiny;
use Moo;
our $VERSION = '1.1.5';
my $json = JSON::XS->new->pretty->canonical;
my $api = "https://api.darksk
response->{reason}\n"
unless $response->{success};
return decode_json( $response->{content} );
}
sub TO_JSON { return { %{ shift() } }; }
1;
=pod
=encoding utf-8
=head1 NAME
DarkSky
::API - Provides Perl API to DarkSky
=head1 SYNOPSIS
use DarkSky::API;
use JSON::XS;
use feature 'say';
my $lat = 43.6667;
my $long = -79.4167;
my $time = "1475363709";