WWW::Wunderground::API Can't bless non-reference value

Question

I would like to use module WWWW::Wunderground::API to download data with weather using JSON.

Here is my PERL script:

use WWW::Wunderground::API;

my $wun = new WWW::Wunderground::API(location=>'KIAD', api_key=>'my key');
print 'JSON source:'.$wun->json if $wun->api_type eq 'json';

It gives me an error:

Can't bless non-reference value at /usr/local/share/perl5/Hash/AsObject.pm line 82.

I cannot fix it up. I have been trying to update cpan and other modules but it gives no results.

Could you tell me how can I repair it?

Thank you in advance

---

with Carp::Always:

Can't bless non-reference value at /usr/local/share/perl5/Hash/AsObject.pm line 82 Hash::AsObject::AUTOLOAD('Hash::AsObject', undef) called at /usr/local/share/perl5/WWW/Wunderground/API.pm line 37 WWW::Wunderground::API::update('WWW::Wunderground::API=HASH(0x1e5b178)', 'KIAD') called at /home/xyz/workspace/WeatherTest/scr.pl line 4 eval {...} called at /home/xyz/workspace/WeatherTest/scr.pl line 4

Answer 1

It comes from a lack of error checking. The following unexpectedly returns undef:

JSON::Any->jsonToObj($json)->{current_observation}

You might want to have a look at what's getting fetched by using the following:

use LWP::Simple qw( get );
my $api_key  = 'my key';
my $location = 'KIAD';
print get("http://api.wunderground.com/api/$api_key/conditions/q/$location.json");

Perhaps there's an error message in the response you can address. For example, a bad API key would result in the following response:

{
        "response": {
                "version": "0.1"
                ,"termsofService": "http://www.wunderground.com/weather/api/d/terms.html"
                ,"features": {
                }
                ,
        "error": {
                "type": "keynotfound"
                ,"description": "this key does not exist"
        }
        }
}