view release on metacpan or  search on metacpan

examples/talker-test.pl  view on Meta::CPAN

	my @data = @{$datareq->{data}};
	my @new_data;
	my $data;
	foreach my $item (@data){
		if ($item->{talking}){
			$data = 0;
		}else{
			$data = 1;
		}
#		print "ID: " . $item->{id} . "\n";
		my $propset = $initialclass->propSet("$item->{id}.talking", $data);
		if ($propset->{code} != 200){
			warn "error updating $item->{id}.talking";
		}
#		sleep 1;
	}
}
sleep 1;
}