view release on metacpan or  search on metacpan

lib/Device/Hue.pm  view on Meta::CPAN

sub process
{
	my ($self, $res) = @_;

	if ($res->is_success) {

		say $res->status_line
			if $self->debug;

		say Dumper(decode_json($res->decoded_content))
			if $self->debug;

		return decode_json($res->decoded_content);
	}  else {
		say "Request failed: " . $res->status_line if $self->debug;
	}
	
	return;
}

sub get
{
	my ($self, $uri) = @_;