File Coverage

blib/lib/Convert/Color/LUV.pm

Criterion	Covered	Total	%
statement	36	53	67.9
branch	5	10	50.0
condition			n/a
subroutine	11	18	61.1
pod	6	9	66.6
total	58	90	64.4

package Convert::Color::LUV;

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

use Convert::Color::XYZ;

our $VERSION = '0.002';

use constant +{ ## no critic (Capitalization)
	KAPPA => (29/3) ** 3,
	EPS => (6/29) ** 3,

	REF_X => 3127/3290,
	REF_Z => 3583/3290,
};

use constant +{ ## no critic (Capitalization)
	REF_U => 4 * REF_X / (REF_X + 15 + 3 * REF_Z),
	REF_V => 9         / (REF_X + 15 + 3 * REF_Z),
};

__PACKAGE__->register_color_space('luv');

sub new {
	my ($class, $l, $u, $v) = @_;
	($l, $u, $v) = split /,/s, $l unless defined $u;
	bless [$l, $u, $v], $class
}

sub L { shift->[0] }
sub u { shift->[1] }
sub v { shift->[2] }

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

sub _y_to_l {
	my ($y) = @_;
	$y <= EPS ? $y * KAPPA : 116 * ($y ** (1/3)) - 16
}

sub _l_to_y {
	my ($l) = @_;
	$l <= 8 ? $l / KAPPA : (($l + 16) / 116) ** 3
}

sub convert_to_xyz {
	my ($self) = @_;
	my ($l, $u, $v) = @$self;
	return Convert::Color::XYZ->new(0, 0, 0) unless $l;
	my $var_u = $u / (13 * $l) + REF_U;
	my $var_v = $v / (13 * $l) + REF_V;
	my $y = _l_to_y $l;
	my $x = 9 * $y * $var_u / (4 * $var_v);
	my $z = (9 * $y - (14 * $var_v * $y) - ($var_v * $x)) / (3 * $var_v);
	Convert::Color::XYZ->new($x, $y, $z)
}

sub new_from_xyz {
	my ($class, $xyz) = @_;
	my ($x, $y, $z) = @$xyz;
	my $l = _y_to_l $y;
	return $class->new(0, 0, 0) unless $l;
	my $var_u = (4 * $x) / ($x + 15 * $y + 3 * $z);
	my $var_v = (9 * $y) / ($x + 15 * $y + 3 * $z);
	my $u = 13 * $l * ($var_u - REF_U);
	my $v = 13 * $l * ($var_v - REF_V);
	$class->new($l, $u, $v)
}

sub rgb { shift->convert_to_xyz->rgb }
sub new_rgb { shift->new_from_xyz(Convert::Color::XYZ->new_rgb(@_)) }

1;
__END__