view release on metacpan or  search on metacpan

lib/DDCCI.pm  view on Meta::CPAN

	my $monitors = scan_devices();
	for (@{$monitors}) {
		print "Found monitor at $_->{'dev'}: $_->{'id'} s/n $_->{'sn'}\n";
	}

	# create a new object, using first found monitor
	my $ddcci = DDCCI->new($monitors->[0]->{'dev'});

	# get monitor EDID and decode it
	my $edid = $ddcci->read_edid();
	my $decoded = decode_edid($edid);
	print "id: $decoded->{'id'}, s/n: $decoded->{'sn'}, type: $decoded->{'type'}\n";

	# get monitor capabilities (from the firmware)
	my $caps = $ddcci->read_caps();
	print "Monitor capabilities: $cap\n";

	# get brightness VCP address
	my $brt_addr = get_vcp_addr('brightness');	

	# get brightness
	my $brightness = $ddcci->read_vcp($brt_addr);