File Coverage

blib/lib/Convert/Color/XYZ.pm

Criterion	Covered	Total	%
statement	35	45	77.7
branch	3	6	50.0
condition			n/a
subroutine	11	17	64.7
pod	6	7	85.7
total	55	75	73.3

package Convert::Color::XYZ;

use 5.008009;
use strict;
use warnings;
use parent qw/Convert::Color/;

use Convert::Color::RGB;
use List::Util qw/sum/;

our $VERSION = '0.002';

use constant +{ ## no critic (Capitalization)
	MAT_R => [  3.2409699419045214,   -1.5373831775700935, -0.49861076029300328  ],
	MAT_G => [ -0.96924363628087983,   1.8759675015077207,  0.041555057407175613 ],
	MAT_B => [  0.055630079696993609, -0.20397695888897657, 1.0569715142428786   ],

	IMAT_X => [ 0.41239079926595948,  0.35758433938387796, 0.18048078840183429  ],
	IMAT_Y => [ 0.21263900587151036,  0.71516867876775593, 0.072192315360733715 ],
	IMAT_Z => [ 0.019330818715591851, 0.11919477979462599, 0.95053215224966058  ],
};

__PACKAGE__->register_color_space('xyz');

sub new {
	my ($class, $x, $y, $z) = @_;
	($x, $y, $z) = split /,/s, $x unless defined $y;
	bless [$x, $y, $z], $class
}

sub X { shift->[0] }
sub Y { shift->[1] }
sub Z { shift->[2] }

sub xyz { @{$_[0]} }

sub _dot_product {
	my ($x, $y) = @_;
	sum map { $x->[$_] * $y->[$_] } 0 .. $#{$x}
}

sub _from_linear {
	my ($c) = @_;
	$c <= 0.0031308 ? 12.92 * $c : 1.055 * $c ** (1 / 2.4) - 0.055
}

sub _to_linear {
	my ($c) = @_;
	$c <= 0.04045 ? $c / 12.92 : (($c + 0.055) / 1.055) ** 2.4
}

sub rgb {
	my ($self) = @_;
	map { _from_linear _dot_product $_, $self } MAT_R, MAT_G, MAT_B;
}

sub new_rgb {
	my $class = shift;
	my $vector = [map { _to_linear $_ } @_];
	$class->new(map { _dot_product $_, $vector } IMAT_X, IMAT_Y, IMAT_Z)
}

1;
__END__