]> iEval git - convert-color-hsluv.git/blobdiff - lib/Convert/Color/LUV.pm
Bump copyright
[convert-color-hsluv.git] / lib / Convert / Color / LUV.pm
index 76d9b8f45832c9d1eb9118d5d05842dc7389bda9..eee9d9f8878a10c45cc58d11dd8a76c4f4e92fba 100644 (file)
@@ -1,13 +1,13 @@
 package Convert::Color::LUV;
 
-use 5.014000;
+use 5.008009;
 use strict;
 use warnings;
 use parent qw/Convert::Color/;
 
 use Convert::Color::XYZ;
 
-our $VERSION = '0.001';
+our $VERSION = '1.000';
 
 use constant +{ ## no critic (Capitalization)
        KAPPA => (29/3) ** 3,
@@ -54,7 +54,7 @@ sub convert_to_xyz {
        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);
+       my $z = (9 * $y - (15 * $var_v * $y) - ($var_v * $x)) / (3 * $var_v);
        Convert::Color::XYZ->new($x, $y, $z)
 }
 
@@ -137,7 +137,7 @@ Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2015 by Marius Gavrilescu
+Copyright (C) 2015-2017 by Marius Gavrilescu
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself, either Perl version 5.20.2 or,
This page took 0.025891 seconds and 4 git commands to generate.