You shouldn't use ref($thing) eq 'HTTP::Response'

[tobyink]

perl-Geo-Coder-OpenCage/lib/Geo/Coder/OpenCage.pm

Line 116 in 005cb24

my $content = (ref($response) eq 'HTTP::Response')

You're checking that $response is exactly a member of the HTTP::Response class, which prevents people from using user-agents that return a subclass of HTTP::Response.

Better would be:

    my $content = ( blessed $response and $response->isa('HTTP::Response') )
                    ? $response->decoded_content()
                    : $response->{content};

You'd need to import use Scalar::Util 'blessed'; at the top to get the blessed keyword though.

[freyfogle]

implemented in v 0.35 which was just uploaded to CPAN
https://metacpan.org/release/EDF/Geo-Coder-OpenCage-0.35

thanks