File Coverage

lib/Graphics/Toolkit/Color/Space/Instance/CMYK.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	26	30	86.6

use v5.12;
use warnings;

# CMYK color space specific code

package Graphics::Toolkit::Color::Space::Instance::CMYK;
use Graphics::Toolkit::Color::Space;
use Graphics::Toolkit::Color::Space::Util ':all';

my $cmyk_def = Graphics::Toolkit::Color::Space->new( axis => [qw/cyan magenta yellow key/] );
   $cmyk_def->add_converter('RGB', \&to_rgb, \&from_rgb );

sub from_rgb {
    my ($r, $g, $b) = @_;
    return unless defined $b;
    my $km = max($r, $g, $b);
    return (0,0,0,1) unless $km; # prevent / 0
    return ( ($km - $r) / $km,
             ($km - $g) / $km,
             ($km - $b) / $km,
                1 - $km
    );
}

sub to_rgb {
    my ($c, $m, $y, $k) = @_;
    return ( (1-$c) * (1-$k) ,
             (1-$m) * (1-$k) ,
             (1-$y) * (1-$k) ,
    );
}

$cmyk_def;