Yet Another CPAN Grep

WWW-PubNub ( G/GE/GETTY/WWW-PubNub-0.001.tar.gz, GETTY, 2016; MetaCPAN )

WWW-PubNub/lib/WWW/PubNub.pm ( view source; MetaCPAN )

Nub::VERSION = '0.001';
use Moo;
use LWP::UserAgent;
use Carp qw( croak );
use HTTP::Request;
use JSON::MaybeXS;
use WWW::PubNub::Message;

has useragent => (
  is => 'lazy',
);

sub _build_useragent

 $response, $request ) = @_;
  $request = $response->request unless $request;
  my $data = decode_json($response->decoded_content);
  my ( $raw_messages_arrayref, $timetoken, $channel ) = @{$data};