package Convert::Color::LCh;
-use 5.014000;
+use 5.008009;
use strict;
use warnings;
use parent qw/Convert::Color/;
-our $VERSION = '0.001';
+our $VERSION = '1.000';
use Convert::Color::LUV;
use Math::Trig ':pi';
my ($class, $luv) = @_;
my ($l, $u, $v) = @$luv;
my $c = sqrt $u * $u + $v * $v;
+ return $class->new($l, $c, 0) if $c < 0.00000001;
my $hrad = atan2 $v, $u;
my $h = $hrad * 180 / pi;
$h += 360 if $h < 0;