File Coverage

blib/lib/Convert/Color/HUSLp.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch			n/a
condition			n/a
subroutine	13	13	100.0
pod	0	1	0.0
total	49	50	98.0

package Convert::Color::HUSLp;

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

use Convert::Color::XYZ;
use Convert::Color::LUV;
use Convert::Color::LCh;
use List::Util qw/min/;
use Math::Trig qw/:pi/;

BEGIN {
	*_get_bounds = *Convert::Color::HUSL::_get_bounds; ## no critic (ProtectPrivate)
}

our $VERSION = '1.000';

__PACKAGE__->register_color_space('huslp');

sub _intersect_line_line {
	my ($l1, $l2) = @_;
	($l1->[1] - $l2->[1]) / ($l2->[0] - $l1->[0])
}

sub _distance_from_pole {
	my ($x, $y) = @_;
	sqrt $x * $x + $y * $y
}

sub max_chroma_for_lh {
	my ($self, $l) = @_;
	min map {
		my ($m, $n) = @$_;
		my $x = _intersect_line_line $_, [-1 / $m, 0];
		_distance_from_pole $x, $n + $x * $m
	} _get_bounds $l
}

1;
__END__