blob: fd47323a2cc80e823fd00069d2e11fbc393535ba (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
use strict; use warnings; use 5.014; use WebService::ForecastIo; use JSON; use Data::Printer; my $key=$ARGV[0]; my $fio = WebService::ForecastIo->new({ api_key => $key, }); my ($response,$json) = $fio->request({ latitude => 51.54, longitude => -0.37, exclude => ['minutely','flags'], }); say $json; p $response;
|