Yet Another CPAN Grep

Device-Nest ( K/KE/KEDAR/Device-Nest-0.09.tar.gz, KEDAR, 2014; MetaCPAN )

Device-Nest/lib/Device/Nest.pm ( view source; MetaCPAN )

rAgent;
    use JSON qw(decode_json encode_json);
    use Time::HiRes qw/gettimeofday/;
    use Data::Dumper;
  } else {
    use LWP::UserAgent;
    use JSON qw(decode_json encode_json);
    use Time:

>{'last_reason'}    = '';
    $self->{'device_url'}     = "https://developer-api.nest.com/devices.json?auth=".$self->{'auth_token'};
	$self->{'last_exec_time'} = 0;
    
    if (!defined $self->{'debu

= $response->code;
    
    if ($response->is_success) {
      my $decoded_response      = decode_json($response->content);
      my $designation           = ($decoded_response->{'thermostats'});