Drop minimum perl version from 5.14.0 to 5.8.9

[convert-color-husl.git] / lib / Convert / Color / LUV.pm

diff --git a/lib/Convert/Color/LUV.pm b/lib/Convert/Color/LUV.pm
index 886deb736f1119adbd19c136ead0e7e2d3ef7424..513dada55dd27023829f86f795c7ad2b3d24f858 100644 (file)
--- a/lib/Convert/Color/LUV.pm
+++ b/lib/Convert/Color/LUV.pm
@@ -1,6 +1,6 @@
 package Convert::Color::LUV;
 
-use 5.014000;
+use 5.008009;
 use strict;
 use warnings;
 use parent qw/Convert::Color/;
@@ -10,11 +10,16 @@ use Convert::Color::XYZ;
 our $VERSION = '0.001';
 
 use constant +{ ## no critic (Capitalization)
-       KAPPA => 903.2962962,
-       EPS => 0.0088564516,
+       KAPPA => (29/3) ** 3,
+       EPS => (6/29) ** 3,
 
-       REF_U => 0.19783000664283,
-       REF_V => 0.46831999493879,
+       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');