Yet Another CPAN Grep

WebService-HackerNews ( N/NE/NEILB/WebService-HackerNews-0.05.tar.gz, NEILB, 2016; MetaCPAN )

WebService-HackerNews/lib/WebService/HackerNews.pm ( view source; MetaCPAN )

WebService::HackerNews;
$WebService::HackerNews::VERSION = '0.05';
use 5.006;
use Moo;
use JSON qw(decode_json);

use WebService::HackerNews::Item;
use WebService::HackerNews::User;

has ua => (
    i

a hack. Can I use JSON->allow_nonref to handle
    # the fact that maxitem returns an int rather than [ int ]?
    return $response->{content} =~ m!^\s*[{[]!
           ? decode_json($response->{conte

result = $self->$get('topstories.json');

    return @$result;
}

sub item
{
    my $self   = shift;
    my $id     = shift;
    my $result = $self->$get("item/$id.json");

    return WebService::Hack